(navigation image)
Home American Libraries | Canadian Libraries | Universal Library | Community Texts | Project Gutenberg | Children's Library | Biodiversity Heritage Library | Additional Collections
Search: Advanced Search
Anonymous User (login or join us)
Upload
See other formats

Full text of "Economic Analysis of Roadway Occupancy For Freeway Pavement Maintenance And Rehabilitation, Volume 3 - Program Documentation"

A-RD-76-16 
DOCUMENTATION 



^J^f Transportation 



^^'^^ilW7 




I b ^ 

^c=borir«^MIC ANALYSIS OF RC3AD\A/AY 
OCCUPANCY FOR FREE\A/AY PAVEMENT 
MAINTENANCE AND REKIABILITATION 




This document is available to the 
public through the National Technical 
Information Service, Springfield, 
Virginia -22161 



y.3 



RT STANDARD TITLE PAGE 




4. Title and Subtitle 

ECONOMIC ANALYSIS OF ROADWAY OCCUPANCY F0R|FR| 
PAVEMENT MAINTENANCE AND REHABILITATION 
Vol. 3 Program Documentation 



7. Author's) 



^''^^\ 



Butlen, 



a-wi-Sv W. Hopkins 



9. Performing Organization Nome and Address 

Byrd, Tall amy, MacDonald and Lewis 

Division of Wilbur Smith and Associates 
2921 Telestar Court 

Falls Church, Virginia 22042 



12. Sponsoring Agency Nome and Addres* 

Office of Research and Development 
Federal Highway Administration 
U.S. Department of Transportation 
Washington, D. C. 20590 



8. Performing Orgonizotion Report No. 



10. Work Unit No. 

FCP-35E1012 



1 1 . Contract or Grant No. 

DOT-FH-11-8132 



13. Type of Report ond Period Covered 



Program Documentation 



14. Sponsori*ng Age'ney Code 

SO 63 



15. Supplementary Notes 



FHWA Contract Manager, J. V. Boos (HRS-41) 



16. Abstract^ computer program developed to perform an Economic Analysis of Roadway 
Occupancy for Maintenance and Rehabilitation "EAROMAR" is documented. Input 
includes pavement design, thickness, lanes, project length, initial and final year 
traffic. The program generates hourly traffic volume by trip purpose, direction and 
year; vehicle operational cost as a function of vehicle weight, speed and project 
design alignment; value of time by trip purpose, income level and tima loss, annual 
workload by activities; activity production rates and labor, equipment and material 
requirements. The information used in a roadway maintenance occupancy simulation 
subject to constraints on work crews and roadway occupancy. The influence of road- 
way occupancy on motorist is executed hourly for each activity and lane closure. 
The resulting operational, time, accident and poljlution impacts are combined for 
all feasible closures including traffic detours and crossovers and output in a 
series of optional reports. 

The volume is the third of a three volume report. The others in the series are: 



Vol. No . 

1 
2 



FHWA No . 

76-14 
76-15 



Short Title 

Final Report 
User Manual 



17. Key Words p^yg^g^^ Design, Highway 
Maintenance, Economics, Traffic Vehicle 
Operation Costs, Accident Cost, Value of 
Time, Pollution, Maintenance Models, 
Simulations 



19. Security Classif. (of this report) 

Unclassified 



18. Distribution Statement 



No restrictions. This document is avail 
able to the public through the National 
Technical Information Service, 
Springfield, Virginia 22161 



20, Security Classif. (of this page) 

Unclassified 



21. No. of Pages 22. Price 
322 



Form DOT F 1700.7 (8-69) 



ACKNOWLEDGMENT 

The research study covered by this report was conducted by the 
Byrd, Tallaniy, MacDonald and Lewis Division of Wilbur Smith and 
Associates. The principal investigator was Bertell C. Butler, Jr. 
Others making contributions to the study included Stephen W. Hopkins 
who assisted in all phases of the study and contributed substantially 
in the development of the computer program; L. G. Byrd, who provided 
guidance in the development of the maintenance module; Robley Winfrey, 
who critiqued the approach to developing vehicle operation cost, 
and made available information on vehicle operating characteristics; 
Ross Maxwell, who directed field data gathering efforts in California, 
and other firm members who gave suggestions and provided assistance 
during the conduct of the research. 

The author wishes to thank the state highway staff members in 
California, Maryland, and Virginia for their cooperation in providing 
notice of maintenance occupancy conditions and data on traffic related 
to roadway occupancy locations. 

Special thanks are extended to Mr. James Boos of the Federal 
Highway Administration who, as project manager, provided invaluable 
assistance in contacts with Federal and State highway staff members. 

Other Federal Highway Administration personnel who made contri- 
butions to the study include Tom Pasko and Dick McComb, Office of 
Research and Development; Ed Evans, Richard Murphy and James Robertshaw, 
Computer Services Division, and Perry Kent, Program Management Division. 



11 



PREFACE 



Report Contents 

"An Economic Analysis of Roadway Occupancy for Freeway Pavement 
Maintenance and Rehabilitation" is contained in three volumes. This 
is the result of work accomplished under a Federally Coordinated Research 
Program, Project 5E, Premium Pavements for "Zero Maintenance," during 
the period of July 1973 to May 1975. 

Volume I, Final Report, provides a complete description of the 
scope, approach, and results of evaluating the economic impact of 
roadway maintenance crew occupancy, taking into account motor vehicle 
operating cost, value of time, accidents, and pollution under various 
freeway traffic conditions. The assessments and conclusions are based 
upon previous state-of-the-art and study of field data. 

Volume II, Users Manual, presents the results of the study as a 
users manual with a systems approach to pavement design, which evaluates 
environmental, operational performance and serviceability factors for 
alternative pavements under a variety of rehabilitation and maintenance 
strategies. The presentation is in two parts: The first is the 
Algebraic Users Manual, for hand computations. The second is the User 
Manual for Program EAROMAR (Economic Analysis for Roadway Occupancy for 
Maintenance and Rehabilitation) which gives a detailed description 
of the format and coding for all required input and a general description 
of the optional input to modify the impacts for local needs. 

Volume III, Program Documentation, contains a complete description 
of the internal variable and computations for the computer program 
EAROMAR, and thus is the basis for any future program modifications. 
The format and coding for all inputs are described in detail. One 
change to the program has been made by FHWA, which is documented in 
this Volume. This modification incorporates an inflation rate of 10 
percent in present worth computations. 

Report Applications 

High traffic volumes, heavy loads, and weathering on existing 
pavement designs cause accelerated damage and early deterioration. 
Maintenance operations required to keep these highway facilities service- 
able create a conflict with the motorist causing delays, and increasing 
pollution and accident opportunities. These repairs are: (1) costly 
due to the extensive traffic control required, (2) limited to between 
peak hour periods to avoid exceeding the traffic volume capacity, and 
(3) difficult to perform and often temporary due to problems in mobilizing 
the work crew. Thus the elimination of these impacts results in reduced 
highway maintenance expenditures and higher levels of safety, economy 
and convenience to the user. 



m 



The FHWA has determined that one solution to the difficulties 
associated with highway maintenance operations is to produce a "pre- 
mium pavement" which reduces maintenance requirements. The savings 
derived from direct maintenance expenditures and motorist costs over 
the life of the pavement could be invested in constructing a "premium 
pavement" as compared to existing designs. 



IV 



FOREWARD 



The only change to the original EAROMAR program to date (as it 
appears in Appendixes A and B) is a FHWA Modification to incorporate 
an inflation rate in present worth computations. 



1. A new internal variable RATEC has been added. This variable 
is the inflation rate in percent used in present worth 
computation. This variable should appear in the NAME DIC- 
TIONARY on page 27, and in Table 4 on page 36. 



2. This variable is used in a new internal computation to convert 
minimum costs for any year to present worth. This new comp- 
utation is made by multiplying the discounted costs by the sum 
of one plus the inflation rate to the power year. The computa- 
tion of discounted costs on page 112 would then be changed as 
follows: 



(add) C = Annual inflation rate 

(delete) DC = MC/(l+I)y 

(add) DC = (MC)(l+C)y/(l+I)y 



TABLE OF CONTENTS 

Page 

ACKNOWLEDGMENT ii 

PREFACE iii 

FORWARD V 

INTRODUCTION 1 

DEFINITION OF TERMS 7 

PROGRAM IMPLEMENTATION 13 

NAME DICTIONARY 14 

PROGRAM NARRATIVES AND GENERAL FLOW CHARTS 

EAROMAR - MAIN 38 

Subroutine INITIAL 40 

Routine - OVER 44 

Routine - RANDOM 69 

Routine - SPEED 73 

Routine - INOCC 76 

Routine - RECON 78 

Subroutine OPPARA 83 

Routine - VTIME 85 

Routine - OPCOST 89 

Subroutine RPRINT 97 

Subroutine YEAR 100 

Routine - AWORKL 104 

Routine - PRINT 111 

Subroutine MAINT 116 

Routine - AVAIL 128 



VI 



TABLE OF CONTENTS (Cont. ) 

Page 

Subroutine MOTOR 130 

Routine - VOCOST 135 

Routine - TIME 142 

Routine - ACCIDT 148 

Routine - POLUTE 154 

REQUIRED AND OPTIONAL INPUT 

Schematic of Input Deck 157 

Card No. 1 - TRAFFIC 160 

Card No. 2 - PAVEMENT 161 

Card No. 3 - PACKET OPTION 162 

Card No. 4 - TRAFFIC DISTRIBUTION 163 

Card No. 5 - TRIP PURPOSE DISTRIBUTION 164 

Card No. 6 - OCCUPANCY CONSTRAINTS 165 

Card No. 7 - OVERRIDE ARRAY 165 

Card No. 8 - ALIGNMENT DESCRIPTION 166 

Card No. 9 - VEHICLE DESCRIPTION 166 

Card No. 10 - SIMULATION DESCRIPTION 167 

Card No. 11 - OPERATION UNIT COSTS 167 

Card No. 12 - PRINT SWITCH 168 

Card No. 13 - LANE WIDTH 168 

Card No. 14 - INCOME 168 

Card No. 15 - OCCUPANCY MOVES 169 

Card No. 16 - TERMINAL PSI 169 

Card No. 17 - DETOUR PARAMETERS 169 

Card No. 18 - DESIGN LIFE 170 

vii 



TABLE OF CONTENTS (Cont. ) 



Card No. 19 

Card No. 20 

Card No. 21 

Card No. 22 

Card No. 23 

Card No. 24 

Card No. 25 



ACTIVITY STANDARD 

CAPACITIES 

FREEWAY DESIGN SPEED 

AVERAGE ACCIDENT COST 

VEHICLE OCCUPANCY 

COMMERCIAL TIME VALUE 

SPEED LIMITS 



Paae 

170 

171 

171 

172 

172 

172 

173 



Number 



2 
3 
4 
5 
6 
7 
8 
9 
10 



LIST OF FIGURES 

General flow of computer program EAROMAR - An 
Economic Analysis of Roadway Occupancy for 
Maintenance and Rehabilitation 

Layover structure tree for program EAROMAR 

Distribution of work trips A.M. peak direction 

Work trips P.M. Peak 

Social-recreational trips 

Personal business trips 

Vacation trips 

A.M. School trips 

P.M. School trips 

Commercial trips 



2 
12 
45 
46 
47 
48 
49 

50 

I 

51 
52 



vm 






TABLE OF CONTENTS (Cont.) 



LIST OF TABLES 



Number 



1-5 


6 


7 


8 


9 


10 


11 


12 



Scalars and Arrays in Common - Subroutines 
and Routines 

Program default matric of trip purpose 
distribution 



Page 

33. 
54 



The program default values assigned to override 56 
variable OVER(N,IA) 

Program default values for vehicle classification 59 
variable WEIGHT (N,I) 

Program default matrix used in the initialization 61 
of the simulation matrix 

Program default values for vehicle consumption 62 
parameters 

Program default values used in variable DET0UR(7) 65 

Constants of influence zone annual accidents 149 
equations taken from NCHRP Report 47 



APPENDIX A Source listing of Program EAROMAR 174 
APPENDIX B Detailed Flow Charting for Program EAROMAR 246 



IX 



— a cr C) * 



«fl = z 

.s s -■ 



" 5 
u ° 



j= j: *- -D 



E E !2 2 

- ^ QJ QJ 

- g s s 

E S e E 



.5 >■ E 

0) V ot 

5 S 5 S 

:? 3 3 <£ 

cr cj cr u 



< 


ID 








s 


UJ 


•— 


cs 


<* 




cc 


O 


t- 


o 


<NJ 




< 


trt 






"^E 


CO 

S 




























E 

c 


i/) 


(1> 


o 






1 


fe 


o 





I ° c 



i I 



— a a o> 



t- o ifl »~ 



oc 


£ 


(M 


=5 




I'j 


t— 






< 


m 


re 


ec 






UJ 






OL 






s 







'^^ 



OJ 




. 


00 


(O . 


- 


- 






to 






o 

N - 


~ 




-§ 






O _ 


" 




_ o 








- 


O . 




















o 


_ o 




1 



o X o o 

I I 



e/3 

az 

o 

O 

< 
u. 

Z 

o 

(/) 

oc 



o 
u 



u 

cc 



III! nil nil III! 



nil nil II 



iMIi.i i|i|>|> •iiuri M'lM' M'l'l' 'I'I'I' 



TIT 



Tl'l 



I'lT 



riT 



TIT 



1 inches 






F 


w 


(n 


0) 




ni 


n> 


i 


c 


E 


E 


0) 


0) 


(D 


V 



cr CT (T C7 <u 



in O 03 ID ". 

lO o o c»g o S 

< 

E 



E e E — 



^ 


;, 


w 












(i> 


















H 


r: 


~ 


'r: 


i 


S 




£ 


^ 


o 



pj ^ ffj 00 O 1**^ 
O O O CO o o 



3 3 3 3 1: 
cr Cr CT CT O 



i -O « 2 ^ — 

^ i I = - " 



o. o- O) u u 



2 iS: 



X 



INTRODUCTION 

Pavements are subject to accelerated deterioration when exposed 
to heavy traffic. The deterioration creates a need for pavement 
maintenance and therefore freeway occupancy by maintenance forces. 
The maintenance is costly, difficult to perform and the occupancy 
creates conflicts with the motorist which impact on motorist opera- 
ting cost, result In motorist delays, create increased opportuni- 
ties for accidents and increased levels of pollution. The elimina- 
tion of these costs and impacts can result in reduced highway main- 
tenance expenditures and higher levels of safety, econoiTiy and con- 
venience to the highway user. 

This program was developed to analyze the magnitude of the cost 
associated with roadway occupancy. 

General Description of Computer Program 

The computer program developed for the Economic Analysis of 
Roadway Occupancy for Maintenance and Rehabilitation will be referred 

to as "EAROMAR". The program was designed to be: 

1. Easily adaptable to the needs of the 50 State highway de- 
partment and other highway agencies. 

2. Readily updatable.for changing unit cost. 

3. A support program to existing pavement systems analysis. 

4. Executable independent of the pavement systems analysis 
it was designed to support. 

5. Easy to use. 

The program's general structure is shown in Figure i. In the 

broadest sense, the program does three things. First, it establishes 






r 




r 


tu 

_) 




1 








1 








UJ 


t- 




z 


o 


o 


o 


o 
o 


l- 


< 


0. 


»- 


o 

> 








o 





















5 I 



o 



E 
ro 

O) 
O 

S- 
Q. 

S- 

+J 

13 
Ol 
E 
o 
o 





r 


z 


1 














n 








lij 





UJ 


UJ 


z 


a. 


a. 


— 




V) 











o 



c 



0) 



a data matrix of given and assumed information. Second, it determines 
the specific hours the roadway will be occupied by work crews annually 
together with the maintenance and rehabilitation cost associated with 
that occupancy. Finally, the impact to the motorist caused by the 
roadway occupancy is established in terms of operation costs, time costs, 
accident cost and pollution effects. 

Information Matrices 

The data used in the program is created in the two subroutines 
INITAL and OPPARA. These two subroutines each contain a number of 
routines which were originally designed as subroutines but combined 
to effect a balance between the core requirement and run time necessary 
to execute the program. The program will run on any system configura- 
tion supporting 92K of available program storage. 

The input data required to execute the program is minimal and 
consists of pavement design and traffic volume data. This insures 
that the program can be easily used by State agencies. 

The majority of the data matrices are based on defaults, which 
are built into the program. However, each default can be optionally 
overridden by the program user. This is accomplished through the use 
of routine OVER which resides in subroutine INITAL. The other routines 
in INITAL are RECON, SPEED, RANDOM and INOCC. These establish an hourly 
volume matrix by trip purpose; a speed matrix by closure category; 
1000 random full size and partial size patches and work site locations; 
and an available occupancy array, respectively. 



The subroutine OPPARA consists of two routines. The first is 
VTIME which is an adaptation of the program developed by SRI in the 
development of their value of time tables (1). This routine 
creates a matrix of the hourly values of time by trip purpose for 
up to 40 increments of time loss. 

The second routine, called OPCOST, creates a matrix of operation 
costs at 65 speeds for passenger cars and commercial vehicles. 

Maintenance Simulation 

A series of workload models, applicable to different pavement 
types, are used to generate maintenance activity workloads annually 
in the subroutine YEAR. Each activity is treated independently in 
the subroutine MAINT. Based on constraints applicable to each acti- 
vity, the occupancy of the roadway by work crews is simulated. The 
occupancy requirement time is accumulated by the hour of the day and 
lane closure. Crew hours are accumulated and costed to produce acti- 
vity costs. At intervals, which can be indicated through interfacing 
with a pavement systems program or controlled by the user, resurfacing 
is executed and the associated occupancy requirements and costs accumu- 
lated. 

Subroutines YEAR and MAINT of the program EAROMAR were designed 
to permit maximum adaptability at the State level. The individual 
workload models can be factored, overridden or deleted completely. 
Each of the constraints built into the simulation process can be over- 
ridden by the user. The activity production and unit cost data can be 



Thomas, Thomas C, Thompson, Gordon I., "The Value of Time Saved by 
Trip Purpose," Stanford Research Institute, Project MSU-7362, October 
1970 

4 



based on local practices. Activities, not accounted for in the 
existing program, can be added by the user. 

Motorist Impact 

Through the maintenance simulation in subroutine MAINT the period 
of roadway occupancy for each activity is established for each feasible 
lane closure. In MOTOR, the impact on the motorist is evaluated in 
terms of reduced speeds, delays and volume changes hourly. These para- 
meters are used in the routines VOCOST, TIME, ACCIDT and POLUTE to 
develop motorist impacts. 

In VOCOST, the operation costs associated with a closure category 
are determined hourly. These are based on operation speed, delays and 
speed changes. The normal operation costs for the hour are computed 
and subtracted. The net difference is accumulated for all hours and 
days of roadway occupancy for each activity and closure category. 

In TIME, the speed and delay information is used to develop a 
loss time per vehicle then held as loss manhours and dollars by acti- 
vity and closure category. 

ACCIDT is used to predict potential increases in accident numbers 
and costs. Finally, the added days of pollution are determined in 
the routine POLUTE. 

In support of a pavement systems program "EAROMAR" is designed to 
select the closure category which produces the least overall costs for 
each activity, these are totaled for all activities and discounted for 
present worth in each analysis year. 



The program also is executable independent of a pavement systems 
analysis. Print options available to the user permit output on each 
activity by lane closure category for each of the 7 following cate- 
gories by roadway direction annually: 

1. Activity costs 

2. Operation cost 

3. Accidents 

4. Accident costs 

5. Manhours loss 

6. Time cost 

7. Added days of pollution 



DEFINITION OF TERMS 

Activity - A specific work function which is per- 

formed on the pavement, i.e., pavement 
patching, resurfacing, joint sealing, etc. 

Activity Workload - The quantifiable units of work generated 

for a work activity, e.g., square yards 
of patching, linear feet of crack sealing, 
lane miles of resurfacing, etc. 

Available Occupancy Hours - The hours of a day when work crews are 

permitted to occupy a roadway. 

Closure Category - A variety of lane closure sequences can 

be used in the delineation of work zones 
for activity work crews. Each closure 
sequence is defined as a closure category. 
As an example, on an eight-lane freeway, 
the following six sequences of closure 
categories are feasible: 

1. Close one lane at a time 

2. Close two lanes at a time 

3. Close three, then one lane 

4. Close all lanes and use shoulder 

5. Close all lanes and use detour 

6. Close all lanes and cross traffic 
over to opposite lanes 

7 



Directional Lanes - The number of lanea going in a single 

direction for a given freeway, i.e., 
on an eigh.t-lane freeway, there are four 
lanes in one direction. 

Influence Zone - The distance over which vehicles are 

operated at an average reduced speed due 
to lane closures on the freeway. 

Lane Closure - The number of directional lanes closed 

for a work activity, i.e., lane closure 1 
is one lane closed, lane closure 2 is 
two lanes closed, etc. 

Maintenance Level - The number of periods in a year when the 

workload generated by a roadway will be 
taken care of. If 100 square yards of 
patching were the annual workload, then 
a maintenance level of one would mean that 
the road was occupied for one period to 
perform the annual work, i.e., work crews 
would be sent to the road every day until 
the total workload generated by the road- 
way had been taken care of by the work 
crews. A maintenance level of two would 
mean that at two periods in the year, the 
roadway would be occupied to perform work. 

8 



Maintenance Level 
CCont.) 



Occupancy Interval 



Occupancy Period 



FurtKer, only one-Fialf of t!ie annual work- 
load would be available during each period. 
Finally, if the maintenance level was 
.2, then the road would only be occupied 
eyery fifth year. The workload generated 
each year would be continually accumulated 
until it could be taken care of in the 
fifth year. 

Any continuous interval of time which is 
less than or equal to 24 hours when the 
roadway can be occupied. As an example, one 
occupancy interval could be a roadway 
occupancy which started at 8 A.M. and was 
terminated at 3 P.M. If crews reoccupied 
the road at 8 P.M. and stayed until 11 P.M., 
that would be a second occupancy interval. 

A period of time when work crews occupy a 
roadway on a continual basis, i.e., at 
ewery occupancy interval opportunity. 
Where the maintenance level is greater than 
one, for example 3, the annual workload 
is divided into three parts. It requires 
an occupancy period to complete the work- 
load for each of the three parts. 



Pavement Analysis Age - TKe models predicting maintenance work- 
load are a function of pavement age. A 
pavement deteriorates due to loadings 
and fails at a rate related to its design 
life. The workload models are based on 
a deterioration of the pavement over 
twenty years. The pavement analysis age 
is created for use in the workload models 
to accommodate axle loads and a design 
life which do not correspond to the 
twenty-year life associated with the 
models. 

Pollution Day - The total emissions of CO and HC generated 

by vehicles operating normally on a free- 
way of a given length during a 24-hour 
period. The increase in emissions 
created during a roadway occupancy are 
converted into pollution days which there- 
fore represent the days of normal opera- 
tion required to generate the increased 
emissions caused by the roadway occupancy. 



10 



t 



Simulation Workload - The total units of work performed during 

th.e simulation process in subroutine MAINT. 
The simulation workload is controlled by the 
worksite workload and the number of 
interations specified for the simulation. 

Worksite - The spot location on the roadway where 

work crews perform productive work. 

Work Zone - The area on a roadway where work crews 

can actually perform work. The length 
of this zone does not include the cone 
taper used to channel traffic. 



11 



nCiok) 

T 
I 
A 

L 



M 



?$0> 



N 



P(9J<) 
P 

A 
R 
A 



P(iik) 
P 
I 
N 

T 



R 



M 
A 

I (10 k: 
N 

T 




M 


T(i4K) 

R 



E 
A 
R 

A 
R 



i 



Figure 2. Layover structure tree for program EAROMAR 



12 



J! 



PROGRAM IMPLEMENTATION 

The program "EAROMAR" is written in FORTRAN IV. The program was 
run and compiled using the IBM 360/65 computer facilities of the Fed- 
eral Highway Administration. The program required 150K for compilation 
and runs in 76K. The program running time using the default options, 
a 20-year analysis period, portland cement concrete, and an eight- 
lane divided freeway, is about two minutes. Program compilation re- 
quires about one and one-half minutes. 



13 



NAME DICTIONARY 

The name dictionary documents all switches, counters and accu- 
mulators and hold areas for the program 'EAROMAR'. The documentation 
provides a description, the units where applicable and an identifica- 
tion of each array, dimensioning and the identity of each array column 
and subscript value. 



A 

AACOST 
AAXLES 
AC(5) 

ACD(7,3) 



ACDTS(4) 
ACP(5) 

AGE 



Equation intercept variable 

Average cost of an accident in dollars 

Accumulated 18-kip axle loadings in millions 

Scale factor used in the value of ti^,e equation for 
time loss less than 15 mins. by five trip purposes 

Intercept and coefficients for a series of accident 
rate equations 

COLUMN 

1 l^One lane open freeway 
2=Two lane open freeway 
3=Three lane open freeway 
4=Four lane open freeway 
5=0ne lane open detour 
6=Two lane open detour 
7=Three + lane open detour 

2 l=Intercept 
2=Coefficient 
3=Coefficient 

Increased accidents by lane closure 

Scale factor used in the value of time equation for time 
losses greater than 15 mins. by five trip purposes 

Analysis age of pavement after adjustment for resurfacing 
or 18-kip axle loadings 



14 



ALIGN(3,6) 



ARHO 
AS(5,11) 



AV0L(24) 
AVAIL 

AXLE 



Project alignment mileage 
COLUMN 

1 1= + Grade 
2= - Grade 
3=Curvature 

2 Alignment values 1 thru 6 in percent or degrees, i.e., 
1= + 1% grade, 2= + 2% grade, etc. 

Annual rate of 18-kip axle loadings needed to reach 1.5 PSI 
in 20 years based on AASHO in millions 

Speed matrix in miles per hour 
COLUMN 

1 Closure categories as follows 



8 Lane 

l=One In closed 
2=Two In closed 
3=Three In closed 
4=Detour 
5=Freeway 



6 Lane 

One In closed 
Two In closed 
Detour 
Freeway 



4 Lane 

One In closed 

Detour 

Freeway 



2 Eleven increments of the volume capacity ratio 
from to 1 

Analysis volume by hour in 1000 's 

The number of hours which a crew is allowed to work 
continuously on roadway 

Given 18-kip axle loadings (this value is assigned 

through interfacing with a pavement systems deisgn program) 



B 
BIT(5) 

BITP(5) 

B0(5) 



Equation coefficient 

Coefficient of income level and time savings where time 
loss is less than 15 minutes in the benefits functions 
by trip purpose 

Coefficient of income level and time savings where time 
loss is greater than 15 minutes in the benefits functions 
by trip purpose 

Intercept value where the time loss is less than 15 
minutes in the benefits functions by trip purpose 



15 



B02 

BT(5) 

BTP(5) 

C 

CAP(5) 

CAPACT 
CCAP(5,3) 



Intercept value where the time loss is greater than 15 
minutes in the benefits functions 

Coefficient of time savings where the time loss is less 
than 15 minutes in the benefits functions by trip purpose 

Coefficient of time savings where the time loss is greater 
than 15 minutes in the benefits functions by trip purpose 

Equation coefficient 

Capacity by lane closure in lOOO's as defined for CCAP 
for a given freeway 



Temporary label for closure category capacity 

Capacity matrix in 1000 's 

COLUMN 

1 Closure categories as follows 

8 Lane 6 Lane 



4 Lane 

One In closed 

Shoulder 

Freeway 



CM 
COMVOT 



l=One In closed One In closed 

2=Two In closed Two In closed 

3=Three In closed Shoulder 

4=Shoulder Freeway 
5=Freeway 

Freeway switch where 

A. Switch 1=4 lane 

B. Switch 2=6 lane 

C. Switch 3=8 lane 



Material cost for an activity in dollars per workload unit 
Value of commercial vehicle time in dollars 



16 



C0STS(7,5,8,2) 



CPLANE 

CREWH(4) 

CREWT 
CR0SS(4) 

CU 

CVOL 

CWT 

CYCLE 

DAYS 

DELAY(24) 
DENSEW 



Accumulated costs and impact for year 

COLUMN 

1 7 Activities 

2 5 Closure categories 

3 8 Print Column as follows: 

l=MaintenanGe or rehabilitation 
2=0peration cost difference 
3=Accident cost difference 
4=Accidents difference 
5=Time costs 
6=Time manhours lost 
7=Pollution 
8=Total costs 

4 Two Directions 

Temporary hold for closure category capacity 

Total crew hours by lane closure 

Crew time available to occupy road in hours 

Crossover factor by lane closure 

Cost of equipment and labor for a crew hour 

Daily commercial vehicle volume in lOOO's 

Commercial volume composite weight in kips 

Temporary variable for DET0UR(6) 

The number of days of impact on motorist for a 
roadway occupancy interval 

Vehicle delay in hours by hour 

Density or concentration factor of workload per 
mile for a given lane closure 



17 



DET0UR(7) 
DFACT 

DIRECT(2,3) 

DIST 

DISTl 

DIST2 

DIST3 

DLIFE 

DSPEED 

DV0LC24) 

END 

ENOVER 
FACTl 

FACT2 

FACTS 

FACT4 

FACT5 

FACT6 

FACT7 

FACTS 



Detour description parameters 

Factor used to modify freeway volume to create a 
combined freeway and detour volume 

Literal variables used in describing direction in 
output 

Queue length in miles 

First worksite location within a traffic control zone 

Next worksite location on roadway 

Present worksite location within a traffic control zone 

Pavement design life in years 

Freeway design speed in mph 

Directional normal hourly volume on detour in 1000 's 

Termination literal for input 

Literal equal to "bEND" 

Temporary variable used for factoring in program 

Temporary variable used for factoring in program 

Temporary variable used for factoring in program 

Temporary variable used for factoring in program 

Temporary variable used for factoring in program 

Temporary variable used for factoring in program 

Temporary variable used for factoring in program 

Temporary variable used for factoring in program 



18 



FACT9 
FCAP 

FIXHRS 
FUEL(2) 

HRS(7,24,4) 



HV0L(24) 

HW0RK(7) 
I 

II 

12 

13 

lA 

lATEST 



Temporary variable used for factoring in program 

The factored capacity of a road section, normal 
capacity reduced to reflect the passenger equivalent 
of commercial 

Hours which are not available for productive work 
when the roadway is occupied 

Unit price of a gallon of fuel 

l=Passenger cars 

2=Composite commercial vehicle 

Hold area for days of occupancy by activity, by 
hour, by lane closure 

COLUMN 

1 7 Activities 

2 24 Hours 

3 4 Lane closures 

Directional normal hourly volume of traffic on freeway 

Accumulated annual workload by activity (per lane mile) 
Indexing variable 

Dummy read variable and indexer 

Dummy read variable 

Dummy read variable 

The subscript of the maintenance activity which is 
being processed by the program 

Temporary integer variable used to round ATEST 



19 



IBAL(7,2,2) 



IBEGIN 
IC 



ID 
IDIR 



lEND 

IH 

IH0UR(24,7) 



Indicator array used to flag input distributions 
COLUMN 

1 7 trip purposes 

2 2 directions 

3 2 volume levels 

First impact hour of a given duration roadway occupancy 

Subscript used to denote the lane closure for maintenance 

1=1 lane closed 
2=2 lanes closed 
3=3 lanes closed 
4=4 lanes closed 

Subscript used to denote directional roadway 

Index used to acknowledge a balance in AM and PM 
peak hourly distributions 

1=AM, peak direction 
2=PM, peak direction 

Last impact hour of a given duration roadway occupancy 

The subscript of the hour being processed by the program 

Each hour of this array has either a zero or one 
associated with it which indicates work can be performed 
(1) or is not permitted (0) during the subscribed hour 



o 



COLUMN 

1 
2 



24 hours 
7 activities 



IMl 
IM2 



A temporary hold variable in determining the available 
crew time 

The first hour crews can occupy a roadway 



20 



INI 
IN2 
INC 



INDEX 
IN0CC(10,3) 



IP 
IPRINT 



IPTEST 

IS 

ISIM 



Variable to hold 'from' occupancy hour in the estab- 
lishment of the available occupancy time array IHOUR 

Variable to hold 'to' occupancy hour in the estab- 
lishment of the available occupancy time array IHOUR 

Income level switch used in computing the value of time 

1 - Under $4000 

2 - $4000-$5999/yr. 

3 - $6000-$7999/yr. 

4 - $8000-$9999/yr. 

5 - $10000-$11999/yr. 

6 - $12000-$14999/yr. 

7 - $15000-$19999/yr. 

8 - $20000 and over 

A variable used to indicate processing position 

Assumed or specified allowable interval of time road 
can be occupied to perform maintenance 

COLUMN 

1 Ten activities can be specified 

2 Variable 

1 - Activity number (Activity Number 10 is 

all activities) 

2 - Occupancy start hour 

3 - Occupancy termination hour 

Pointer switch used for optional input 

Switch used to control analysis output 

l=Direction level all 
2=Year level all 
3=Year level total 
4=Analysis period total 

Temporary integer variable used to round PTEST 

The subscript of the speed being processed by the program 

Number of simulation iterations 



21 



IT 



ITEST 
IT0TAL(5,8,2) 



ITRUCK 

IW 

IWT 

lY 



Switch used to direct branch to proper array position 
by trip purpose 

l=Pass. car work trips 

2-Pass. car personal business trips 

3=Pass. car social -recreational trips 

4=Pass. car school trips 

5=Pass. car vacation trips 

6=Commercial vehicle trips 

7=A11 trips 

Variable used to temporarily round numbers in reconcile 

Output totals 

COLUMN 

1 5 closure categories 

2 8 print columns 

l=Maintenance and rehabilation cost 

2=0peration cost 

3=Time cost 

4=Time hours 

5=Accidents 

6=Accident costs 

7=Pollution days 

8=Total costs 

Variable used to temporarily round percent of commercial 
vehicles 

Indexing variable for the simulation process 

Number vehicle classes (Max 10) 

Subscript of analysis year being processed by the program 



22 



J 
Jl 

JH0UR(24) 
JPRINT 



K 
KP 



LANES 
LEVEL 



LF 

M 
MI 

MI 
MO 



Indexing variable 

Indexing variable 

The array 'IHOUR' of available occupancy hours for a 
activity modified for v/c ratio restrictions 

Switch to control printing of program input and 
informational matrices 

l=Print 

2=Do not print 

Indexing variable 

Switch for highway design being considered 

l=4-lane 
2=6-lane 
3=8-lane 

The number of expressway lanes in one direction 

Switch used to direct branch to proper array 

l=Initial year volume 
2=Final year volume 

A factor used to increase simulation workload to 
reflect that the worksite workload is being 
factored by the number of lanes closed 

Temporary switch and DO loop limiting variable 

Last even hour available for road occupancy in 
simulation process 

Data reference set number card reader 'input' 

Data reference set number printer 'output' 



23 



N 
Nl 

N2 

N3 

NA 

NOTIME 

NY 

NYEARS 

NZ 

0C0ST(65,4,2) 



0C0STS(65,4,2) 



Temporary, switch and indexing variable 

Counter for the random generation of full depth 
patch sizes 

Counter for the random generation of partial depth 
patch sizes 

Counter for the random generation of roadway 
patch locations 

Level of maintenance factor 

An index used to indicate that no roadway occupancy 
hours are available. No occupancy occurs and output 
for closure category shows stars. 

A positive odd number used in the random number process 

Number of years to be analyzed 

Number of traffic control zones for a given activity 
and lane closure 

Array holding operation parameters for given roadway 
COLUMN 

1 65 speeds 

2 l=Fuel consumption 
2=Tire wear 

3=0il consumption 

4=Maintenance and depreciation cost 

3 l=Passenger cars 
2=Commercial vehicles 

Array holding the operation cost associated with fuel, 
oil, tires, maintenance and depreciation 



OCSCHL 



COLUMN 

1 
3 



55 Speeds 
l=Passenger cars 
2=Commercial vehicles 



Average occupancy per vehicle on school trips 



24 



OCWORK 
0IL(2) 

0VER(12,7) 



PATCHF(IOOO) 
PATCHP(IOOO) 
PAVE(3,3) 



Average occupancy per vehicle on work trips 

Unit cost of a quart of oil 

l=Passenger cars 

2=Composite commercial vehicle 

An array holding program parameters which are assigned 
by the program or can be specified by the user 

COLUMN 1 - Type of parameter 

l=Continuous crew work hours 
2=Location or joint spacing in feet 
3=Workload model factor 
4=Workload model fixed annual rate 
5=Travel time hours (round trip) 
6=Maintenance level 
7=Cure time hours 

8=Traffic control installation hours 
9=Max. TC length 

10=Vol/Cap ratio allowed 

ll=Min TC length 

12=Shoulders open to traffic 

COLUMN 2-7 Activities 

Speed used in pollution factor equations 

The array holding 1000 random generated full size 
patches 

The array holding 1000 random generated partial 
depth concrete patches 

Literal variable used for pavement description in 
output printing 



PCTADT(24,7,2,2) Hourly distribution of traffic by trip purpose, 
direction, and volume level 

EVALUATION* 
LEVEL 

1 100% distributions for each trip purpose 
for Initial and Final volume levels in both 
directions 

2 100% distributions adjusted by distribution 
of trip purposes for Initial and Final volume 
levels in both directions 



25 



PD 
PERCNT(6,2,2) 



PFACT 
P0LUTE(4) 



3 Base year distribution and add on array for 
each trip purpose and direction 

Pollution factor for normal detour operation 

Distribution of traffic among trip purposes 

COLUMN 

1 6 Trip purposes 

2 2 Directions 

3 2 Volume levels 

1 Initial volume 

2 Final volume 

Factor to convert patch length to area in square yards 

Pollution equivalent normal vehicle miles by lane 
closure 



PQ 

PR 

PROJLN 

PS(7,3,3) 



PSI 

BSIASN 
PSIRS 
PWT 



Pollution factor for operation in the queue 
Pollution factor for operation in the influence zone 
Length of pavement section being designed in miles 
Performance standard data for costing maintenance activity 
COLUMN 

1 7 Activities 

2 Pavement Type 

l=Portland cement concrete 
2=Bituminous concrete 
3=Composite 

3 l=Labor & equipment hourly cost 
2=Material cost per workload unit ' 
3=Production rate in workload units per hour 

Present serviceability index 

Assigned initial PSI for analysis 

The PSI value below which resurfacing occurs 

Passenger car weight in kips 

26 



QUECST(2) 



Ql 
RAGE 

RAND0M(2) 



RATE I 

RHO 
RLIFE 

RLOC(IOOO) 
R0AD(2,3) 

RTIME 

RW 
S 

SCZONE 

SF 

SFACT 



The operation cost associated with the delay created 
by a queue 

l=Normal operation cost in queue zone in dollars per hour 
2=Actual operation cost in the queue in dollars per hour 

Composite passenger-commercial speed change costs 
Resurfaced Age 

A random number which falls between 0.00 and 1.00 
Position 1 is used to create an X value to be used 
in a density function. 

Position 2 is used to test the number generated from 
a density function. 

Interest rate on money used in present worth computation 
in percent 

AASHO based 18-kip loadings to produce 1.5 PSI in millions 

Design life of resurfaced pavement in years 

Array holding 1000 random numbers from 0-1.0 

Literal variable used for freeway description in 
output printing 

Real remainder = balance of roadway occupancy time 
in simulation process 

Weight Ratio factor to convert operation parameters for 
a base passenger vehicle to any weight vehicle 
Speed value used in equations of speed change 

An assumed speed change zone equal to one mile 
used in evaluation of accident rates 

Spacing increment used to accumulate stationing 
for uniformly spaced worksites 

A factor to be applied to the random location array 
to adjust it for the number of simulation iterations 
specified for an activity 



27 



SIM(7,5) 



SINDEX 

SLIMIT(5) 

SP(5,11) 



SPEED(24) 

SPEEDD(24) 

SPEEDN(24) 
SPLIT(2) 



Descriptor for simulation process 
COLUMN 

1 7 Activities 

2 l=l'Jorksite switch 

l=Full depth patch 

2=Partial depth patch 

3=Lanes closed 
2=Worksite size multiplier factor 
3=Worksite size add on constant 
4=Number of simulation iterations 
5=Worksite spacing switch 

l=Random spacing 

2=lInTform spacing 

Services index used to modify vehicle operation 
Speed limit in mph assigned to closure category 
Speed matrix 
COLUMN 

1 Closure category 
8 Lane 6 Lane 



l=One In closed One In closed 

2=Two In closed Two In closed 

3=Three In closed Detour 

4=Detour Freeway 
5=Freeway 



4 Lane 

One In closed 

Detour 

Freeway 



Vehicle speed through traffic influence zone by hour 

Normal vehicle speed on detour by* hour 

Normal vehicle speed on freeway by hour 

The percentage of daily traffic in the AM Direction 



EVALUATION* 
LEVEL 


Column 


1 


1 Initial year 

2 Final 


2 


1 Base year 

2 Annual increment 


3 


1 Analysis year 



28 



ss 

SSIM(3,7,5) 



STIME 

SW0RK(7) 
TCMOVE 

TCMOVE 

TEMPI 

TEMP2 

TEMPS 

TEMP4 

TEMPS 

TEMP6 

TEMP7 



Real version of IS, speed subscript 
Descriptor for simulation process 
COLUMN 

1 Pavement type 

1=PCC 

2=Bituminous 

3=Composite 

2 7 Activities 

3 1=3 Worksite types where 

l=Full size patch 
2=Partial size patch 
3=Lanes closed 

2=Worl<site size multiplier factor 

3=Worksite size add-on constant 

4=Number of simulation iterations 

5=l=Random locations 
2=Uniform locations 

Total road occupancy time in hours 

Simulation workload by activity 
Travel speed between TC sites 

Driving speed between traffic control site 

Variable used for holding numbers temporarily in 

Variable used for holding numbers temporarily in 

Variable used for holding numbers temporarily in 

Variable used for holding numbers temporarily in 

Variable used for holding numbers temporarily in 

Variable used for holding numbers temporarily in 

Variable used for holding numbers temporarily in 



program 
program 
program 
program 
program 
program 
program 



29 



TEST 

THICK 

THICKl 

THICK2 

THICK3 

TIME 

TIMEl 

TIME2 

TIMEL 

TIMELD 

TIRES(2y 

TLEVEL(7) 

T0TALA(8) 
T0TALY(8) 

TRUCKS(2) 



Variable used for temporarily holding sums in reconcile 
routine 

Equivalent pavement thickness 

The thickness of pavement surface 

The thickness of pavement base 

The thickness of pavement subbase 

Hours required to complete work at a given worksite 
location 

The delay time associated with the first vehicle in 
a given hour 

The delay time associated with the last vehicle in 
a given hour 

Hours lost by each freeway motorest 

Hours lost by each detour motorest 

Unit cost of .001 inches of tire wear 

l=Passenger cars 
2=Commercial vehicles 

Accumulation area for maintenance levels which are 
less than 1 by activity 

Totals for analysis period discounted to present worth 

Minimum totals for analysis year discounted to present 
worth 

Percentage of total traffic volume which is commercial 
in percent 



i 



EVALUATION* 
LEVEL 

1 
2 
3 



Column 

1 Initial analysis year 

2 Final analysis year 

1 Base year 

2 Annual 

1 Analysis year 



30 



TT 

TTIME 
VALUE 

VC 

V0LUME(2) 



VTRATE(5,40) 



WALK 
WEIGHT(10,3) 



Temporary hold variable for crew travel time in hours 
from maintenance yard to road and return 

Accumulated production hours for each roadway occupancy 
Dummy read variable 

Volume-capacity ratio 

Average daily traffic volume in thousands 



EVALUATION' 
LEVEL 

1 
2 
3 



Column 

1 Initial analysis year 

2 Final analysis year 

1 Base year 

2 Annual increment 



1 Analysis year 
Value of time array 
COLUMN 

1 Five trip purposes where 

l=Work trips 
2=Social -recreational 
3=Personal business 
4=Vacation 
5=School 

2 40 minute increments 

Product of the annual workload per lane mile for a 
given activity and project length in miles divided by 
the simulation workload 

Rate crews move on road between repair location (MPH) 

Vehicle weight array 

COLUMN 

1 Each vehicle class 



31 



WIDTH 
WK 

WORK 
XF 

XP 
YD 

Z(24) 
ZC 

ZL 

ZONE 
Z0NEL(7,4) 



2 l=Weight in kips 

2=Percent of commercial vehicle in given 
weight class 

3=Average purchase price of vehicle in dollars 

The assumed or given width of a roadway lane in feet 

Workload density per lane mile for a given occupancy 
simulation 

Annual computed workload 

The length of a full depth patch in feet 

The area of a partial depth patch in square feet 
A number computed from a density function 
Dummy read variable 

Zone length constant for one worksite location 
(minimum zone length) 

Accumulated length of traffic control zone for a 
given activity and lane closure 

Applicable influence zone (freeway or detour) 

The average length of influence zone 



*Evaluation level means that the contents of the array 
changes at various points in the program process 



32 





* 




•X 




■X 




■X 




* 




■X 




•»« 




•X 




* 




■X 




* 




•X 




* 




■X 




* 




•X 




^« 




* 




* 




* 




* 




* 




* 




■X 




* 




■X 




* 




•X 




* 




* 




•»c 




■X 




* 




* 




* 




■X 




* 




■X 




* 




* 




* 




* 




* 




■X 




* 




■X 




M 




•X 




* 




■X 




* 




■X 




* 




* 




* 




■X 




* 




•X 




* 




* 




* 




■X 




* 




* 


c 


* 




■X 


o 


* 




* 


= 


•X 




■X 


:= 


* 




■X 


o 


* 




■X 


o 


* 




■X 




M 




•X 


c 


* 




•X 


•r- 


* 


(/) 


t 




•K 


O) 


1/1 


* 


c 


■X 


>, 


M 


•^" 


* 


?0 


* 
•X 




t 




t 


o 


t 


■o 


t 


-o 


t 


£= 


•X 


c 


■X 


fd 


* 


ra 


■X 




•X 




^ 


(/) 


■X 


(/) 


■X 


i. 


^ 


O) 


■X 


fC 


■X 


c 


•X 




* 


•r- 


■X 


fO 


•X 


+-> 


■X 


u 


■X 


3 


■X 


oo 


■X 


o 


* 




^< 


t. 


■X 




■X 


J2 


■X 


, 


* 


=> 


•X 




•X 


00 


* 


T— t 


•X 




■X 




•X 




* 


(U 


■X 




* 




■X 




■X 


^ 


•X 




■X 


fO 


* 




■X 


1— 


■X 




■X 




^c 




•X 




* 




•X 




•X 




* 




■X 




■X 




■X 




■X 




•X 




■X 




* 




■X 




•X 




■X 




■X 




* 




* 




•X 




■X 




•X 




t 




■X 

* 




•X 




* 




■X 




■X 




■X 




* 




■X 




•X 




■X 




•X 




■X-X-X-X^e-X^ 




■X 








■X 








■X 








* 








■X 








* 








■X 








■X 








■X 








■X 







•X 
■X 
■X 
■X 
■X 
■X 

•X r 

■X 

■X 

•X X 

•X 

■X 

■X 

^t 

■X 
■X 
■X 
■X 
■X 
■X 
•X 
■X 

* 

■X 

■X 

•X 
■X 

* 

•X 
■X 
■X 
■X 
■X 
■X 
•X 
■X 

* 

■X 
■X 

■X 

* 

■X 

•X 
■X 
•X 

t 

■X 

* 

-X 
■X 
•X 

* 

■X 
•X 
■X 

■X 

* 

■X 
■X 
■X 
■X 
■X 
■X 

* 

•X 
■X 
■X 
•X 
-X 

¥ 

■X 

■K X 

■X 

•X* -X*** **-X-X *^c ^c^c -X-X^c^c -X-X 

•X 
CO -x 

LU -X 

—I -x 

CQ -X h- 

«ai -x t/) 

•— < -x o 

cm -Je o 

< -x <: 

> -x < 

•X 
■X 



D- o _i rj t— 



ei C_) O 1— < Ci I— 



O (_> O OO h- 



o 1— o q; 



<: >■ <c '-' — I 



s: < '-' :^ I— 



Q_ Q:: I— I 2: I— 



<: 3 o q: ii^ _i 



< a: 



Qi Q. q; I— I z 1— 



o o- o o oo h- 



o D- D_ -sc q: <=c 



q: llj (_j o 



•-< 2: o o o 



00 Q_ LU UJ Q 



q: <c ^ Q o 2: 



uj ce: 



HH :s I— I H- ■< —J 



2: < "-" 2: 



X 



q; 



e? 






Q_ 



o 
o 



00 

I— 
oo 
o 
o 



00 

a: 



33 



* 




* 








* 


















* 




■K 








* 


















* 




* 








* 


















* 




* 








•X 


















* 




* 








■X 


















* 




* 




Q- O —I 13 h- 


LU 


■X 


X 




X 








1 




* 




* 








■X 


















* 




* 








■X 


















* 




* 








•X 


















* 




* 




ct C_J <_) >-i Q 


1— 


* 


X 




X 








1 




■K 




■)c 








■X 


















* 

* 




t 








■X 


















* 




* 




1— i-i ^ UJ 




•X 


X 




X 








1 




* 




4( 








•X 


















* 




■K 








•X 


















* 




* 








■X 


















* 




* 




> o o O OO 1— 


•X 


X 




X 








1 




M 




* 








■X 


















* 




* 








•X 


















* 




* 








■K 


















* 
* 
* 




* 
* 


s: o 1— o q; 




■X 
■X 

* 


I 




X 








1 




























■Je 




■K 








•X 


















* 




* 




<:>••=£ i-H _i 




■X 


1 




1 








1 




•»< 




* 








•X 


















* 




* 








•X 


















* 




* 








* 


















* 




* 


s: 


<=C "-t 2: 1— 




■X 


1 


X 


X 




X 




1 




= t 












t 


















O -JC 




* 








■X 


















= * 




* 




Q- a: i-H z: 1— 




* 


1 




X 








1 




= -K 




* 








■X 


















O * 




* 








•X 


, 
















O * 




* 








■X 


















■K 




* 




<: s q; i^ _i 


^ 


1 


X 


1 








1 


X 


C * 




* 








■X 


















•r- * 


tA 


M 








■X 


















•Je 


O) 


■fa 








•X 


















</l * 


E 


•K 


>- 


Lu ct cs; 




* 


X 




X 








X 




>^ * 


•1 — 


* 








* 


















« * 


-M 


* 








■X 


















S- * 


Z3 


■X 








■X 


















S_ * 


O 


•X 


a: 


Q. q: t-i 2: 1— 




•X 


1 












1 




fO * 


s- 


* 








* 


















* 




-X 








■X 


















-o * 


-a 


■X 








■X 


















c * 


c 


-X 




Q- 00 


I— 


■X 


1 












1 




to * 


<o 


■X 








•X 


















* 




■X 








•X 


















w ^ 


CO 


4e 








•X 


















i~ * 


O) 


■X 




>■ h- •-• 2: LU 




* 


i 










X 


1 




ta * 


c 


■X 








* 


















,— * 


•1— 


■X 








* 


















re * 


+-> 


■X 








* 


















o * 


Z3 


* 


o a. D. ca: q; ec 




•X 


1 












1 




oo * 


o 


■X 








* 


















* 


s- 


■X 








■X 


















■K 


J3 


•X 








•X 


















• * 


3 


* 




q: uj ^ 




•X 


1 






X 






1 




M 


oo 


■X 








■X 


















C\J * 




* 








■X 


















■)« 




* 








* 


















O) •}« 




* 




1— 1 z C-> <-> 




* 


1 








X 




1 




I— * 




■X 








■X 


















J2 * 




•X 








* 


















03 * 




■X 








■X 


















h- * 




■X 




CO D- UJ LU Q 




■X 


1 












1 




* 




■X 
•X 








t 


















* 




•X 








* 


















* 




* 




q; <c ^ Q 2: 


* 


1 












1 


X 


* 




* 








•X 


















* 




^ 








•X 














• 




* 




•)C 








•X 


















* 




4c 




> LU Qc: 




* 


1 










X 


X 




* 




* 








•X 


















* 




* 








* 


















* 




■X 








■X 


















* 




•X 


1 — 1 


2: HH h- < _J 




■X 


1 










1 


1 


X 


* 




* 








•X 


















* 




■X 








■X 


















* 




•X 








■X 


















* 




* 


S -a: -H z 




■X 


1 


X 




X 




X 


X 




* 




* 








* 


















M 




* 








■X 


















• ^^^•^^^♦■^^•^^^^^^^♦•JC****** 


















* 












■X 


















* 








CO 




* 


















* 








LU 




* 


















* 








_I 




•X 


















* 








CO 




•X 














1- 




* 








■sC 




■X 




i<i 






q: 




z 


LiJ 


* 








t— < 




* 


_J 


a: 




a: 


=D 




1 — 1 


Q_ 


* 








q; 




•X 










1— 1 








a: 


>- 


* 








<c 




■X 


> 


3 





Q 


nz 


z: 


Q. 


h- 


* 








> 




■X 
■X 


3: 


3: 


1— 1 


1— 1 


1— 1 


1— 1 


1— 1 


f— 1 


* 












* 



















Cl. 



Cl. 



34 



I 





* 




* 




* 




* 




* 




^c 




* 




■»< 




* 




4c 




•Je 




■K 




t 




* 
* 




* 




* 




•K 




* 




■Je 




* 




■K 




* 




* 




* 




* 




* 




* 




* 




* 




■Je 




* 




* 




* 




* 




■)« 




* 




* 




* 




^« 




■Jc 




* 




* 




* 




•)« 




* 




* 




* 




* 




* 




* 




* 




* 




* 




* 




* 




* 




* 




* 




* 




•ic 


c 


* 




% 


o 


■»c 




1 






t 


o 


* 




* 


a 


* 




* 


c 


* 




t 


•r- 


■K 


00 


* 




^ 


O) 


* 


«/J 


* 


E 


* 


>> 


* 


•I— 


■a 


ro 


■Jc 


+J 


•K 


S- 


■)« 


3 


* 


s- 


* 


O 


* 


(0 


* 


S- 


-tc 




■K 




■}< 


•a 


* 


TD 


* 


E 


* 


E 


■X 


fO 


■K 


03 


* 




* 




■»« 


(/) 


^ 


to 


■)( 


5-. 


* 


0) 


* 


n3 


* 


E 


■»c 


^— 


* 


•^ 


* 


03 


* 


+J 


■Jc 


a 


•)e 


3 


* 


00 


* 


O 


* 




■K 


i- 


* 




* 


-Q 


■X 


• 


* 


3 


* 




* 


C/) 


* 


n 


* 




* 




•)« 




* 


(U 


* 




■X 


r~ 


* 




* 


.ia 


* 




* 


rtj 


* 




* 


1— 


■»< 




■K 




•K 




* 




•K 




■K 




* 




* 




* 




* 




* 




* 




* 




* 




* 




* 




* 




■K 




* 




* 




* 




* 




* 




M 




* 




M 




* 




* 




■K 




* 




* 




■)e 




* 




* 




* 




* 




* 




* 



Q- O _J rD I— 



ca: o cj i-i Q I— 



>■ O O O 00 h- 



s o I— o q; 



< > <a: i-H _j 



«a: K-i z t— 



Q. a: I— I ^ I— 



cc 3 o en: i«i: — J 



■=3: q: 



q: Q. q: I— I ^ I— 



o a. <_) o oo I— 



t-H 2: UJ 



o o_ Q. <: d; ea: 



q: Lu o o 



HH :z o c_) c_) 



(/) Q. LU UJ o 



ce: cc z Q o s 



LU q; 



I— 1 S I— I I— cc — I 



s <: I— I 2: 



* UJ * 

t — ' * 



X 



X 



X 



X 



00 



■a: i-H 



00 



00 

(— 

CO 

o 
o 
o 



o 
00 
o 
o 



or 
o 

C_) 

o 



ce: 



U- 



Q- 



H- 









35 



Q- O _l ^> I— UJ 



ci: C_) C_) 1— I Q f— 



O O O 00 I— 



s: o I— o Di 



■=c > ca: H-. _i 



s: ■< •-< 2: 



cu ai t-* ^: h- 



<=C 3 o Qi i<i: _j 



>- UJ «SC Di 



q: Q. ci: i-H 2: I— 



■X 
it 

■X 

■X 

* 
•X 
■X 
■X 
■X 
•X 

■X 
■X 

* 

■X 
•X 

* 

■X 

•X 

* 

■X 
•X 
■X 
■X 
■X 

* 

■X 
■X 
■X 
■X 

* 

■X 
■X 

•X 

■X 

■X 

■X 
■X 

* 

■X 
■X 
■X 

* 

■X 
■X 

■x-x-x-x-x*-x-x**-x-x-x-x-x-x*-x-x-x-x-x-x*-x 

* 00 -x 

■X LU -X 

■X —I -x 

* CQ -X 

■X ca: -x 

* t-H -X 

M on -X 

•X ea: * 

■X > -x 

* -x 

•X 





■X 




■X 




■X 




■X 




•X 




* 




■X 




* 




■X 




•X 




•X 




* 




•X 




* 




•X 




^ 




•X 




■X 




•X 




■X 




•X 




■X 




■X 




* 




•X 




* 




■X 




■X 




■X 




■X 




* 




■X 




•X 




•X 




■X 




■X 




•X 




•X 




■X 




■X 




* 




* 




* 




■X 




■X 




■X 




•X 




■X 




■X 




■X 




■X 




■X 




* 




* 




■X 




* 




■X 




•X 




•X 




* 




■X 




■X 


c 


■X 




* 





■X 




•X 


= 


-X 




* 


= 


•X 




* 





•X 




* 





* 




-X 




* 




* 


c 


■X 




■X 


•r— 


■X 


10 


* 




■X 


O) 


■X 


V) 


■X 


c 


■X 


>> 


■X 


•r- 


•X 


CO 


t 


ZJ 


•X 
■X 


fO 


t 





•X 




•X 




* 


-0 


•X 


-0 


^ 


c 


■X 


c 


* 


fO 


* 


fO 


* 




■X 




•a 


10 


■X 


CO 


■a 


fO 


1^ 


O) 


■X 
■X 


1— 


■X 


•r- 


•X 


fO 


* 


+-> 


•X 





^ 


13 


•X 


00 


■X 





•X 




* 


S- 


■X 




■X 


jn 


■X 


• 


■X 


3 


* 


«!:J- 


■X 


00 


t 




* 




•X 


O) 


^ 




■X 


r— 


•X 




•X 


^ 


■X 




•X 


fO 


* 




* 


h- 


■X 




■X 




•X 




■X 




■X 




■X 




* 




■X 




■X 




■X 




* 




* 




* 




■X 




* 




■X 




■X 




* 




■X 




•X 




■X 




■X 




■X 




■X 




■X 




•X 




* 




* 




* 




•X 




* 




* 




■X 




•X 




■X 




■X 
•X 



O Q. O O 00 I— 



o Q- Q- "< q: <: 



q: LU o o 



I— < z o o o 



00 D_ UJ UJ Q 



or ■< 



Q o s: 



LU q: 



I— 1 2: 1— 1 1— <: _i 



s: <: '-I 2: 



X 



X 



X 



X 



_J 




00 


CO 


1 — 1 


LU 




■"D 




a: 


C_5 


LU 


U- 










1— 1 


LU 


1— 


1 — 1 





a: 


00 


00 


r) 


<c 


_j 


_i 


Q_ 


D_ 


Q_ 


cy 


al 


an 


q; 



oo 



00 



00 



D. 
00 



o 



a. 
00 



36 






to 

s- 
s- 
«o 

C 

m 

</> 

i- 

ro 
fO 
00 






J3 



* 
* 

•a 



* 

* 

* 

* 
* 

* 

■K 
•K 
* 



10 

O) 

c 

-M 

=3 

o 

S- 

-o 

E 
(O 

V) 

0) 

E 



4-> 
O 

jQ 

ZJ 



D_ O _1 ZD I— LU 



ct O C_) t-H Q I— 



>■ O O O OO 1— 



2: o I— o cc: 



«sc > < •-< _j 



: s «=c •-• :z 



* 



Q. q; t-i s I— 



<c 3: o q: ixi —I 



< ct: 



q: Q_ Qi t-H z: I— 



o D. C_) o oo h- 



a: uj o o 



i-i 2: o c-> <-> 



* o Q. Q- <: o; < 
* 

■Je 

* 

*i-t 

i * 

* 00 * 

f -• * 

* CO * 

* < * 

* q; * 

* ear * 

* > * 



CO Q_ 



Qi ea: z Qo s: 



o > Lu oe: 



z: >-< I— <c _i 



;s: < ■-« z 



a 

UJ 
UJ 
Ol. 
00 



00 



Ol 

o 
oo 



UJ 



00 



UJ 



oo 



UJ 



(_> t-l 



UJ 

a: 



_j 



o I— 



o 



37 



Program EAROMAR - MAIN 

Purpose 

MAIN controls the sequence in which the subroutines are called. 

Description 

MAIi^ is kept as small as possible to minimize the core require- 
ment. MAIN calls the subroutines INITAL and OPPARA to establish the 
initialization of arrays and variables needed in the analysis. Fol- 
lowing the initialization process, YEAR is called, and the analysis 
of roadway occupancy performed. 

A complete printout of the initialization information is available 
on request through the print option JPRINT, which is set to default 
the initialization printout. 



38 



General Flow for MAIN in Program "EAROMAR" 



MAIN 



Set card reader 

and printer 

numbers 



Block data initialization 
of variables in common 




39 



SUBROUTINE INITAL 
Purpose 

This subroutine is used to establish a series of basic arrays needed 
in the economic analysis of roadway occupancy for maintenance and recon- 
struction (EAROMAR). The routines OVER, RECON, SPEED, INOCC and RANDOM 
reside in this subroutine. Each of these routines are described in de- 
tail by themselves. OVER handles all user override inputs, SPEED is used 
to develop a speed matrix for each closure category. RANDOM and INOCC 
create arrays needed in the simulation subroutine MAINT, and RECON esta- 
blishes an hourly traffic volume array by trip purpose and direction. 
The subroutine INITAL itself handles all required program input. 

Description 

The subroutine INITAL reads information on the pavement design and 
on the expected traffic which is required in the program "EAROMAR". This 
required input consists of the following: 

Volume Input 

A. Initial and final analysis year traffic volume in ADT 

B. Initial and final analysis year directional spjit in terms 
of the percentage in the AM peak 

C. Initial and final analysis year commercial vehicle percentage 
of total ADT 

Pavement Input 

A. Number of years to be analyzed 

B. Freeway class where 

1=4 lane divided 
2=6 lane divided 
3=8 lane divided 

40 



C. Pavement type where 

1 = Portland Cement Concrete 

2 = Bituminous Concrete 

3 = Composite PCC-Bituminous 

D. Project length in miles 

E. Pavement surface, base and subbase thickness in inches 

The following variables are initialized with default values in the 
subroutine INITAL: 

A. SSIM - Simulation parameters by activity for concrete, 
bituminous and composite pavement 

B. PERCNT - The percentage of total traffic falling into one of 
six trip purposes by direction and for an initial and final 
analysis year 

C. INOCC - Available occupancy specifications 

D. DSPEED - The freeway design speed 

E. CCAP - The capacity by closure category for 4, 6 and 8 lane 
freeways 

Following the required input, which identifies pavement type, the appro- 
priate simulation parameters SSIM and capacities CCAP are placed in the 
common arrays SIM & CAP for use in the subroutines YEARS and MAINT. 

Based on AASHO equations, the subroutine INITAL calculates the 18-kip 
accumulated axles required to fail pavement (reach a PSI of 1.5) which is 
divided by 20 and placed in common for use in the routine AWORKL which 
resides in subroutine YEAR. 

INITAL then proceeds to execute routines OVER, RANDOM, SPEED, INOCC 
and RECON. 



41 



General Flow for Subroutine INITAL in Program 'EAROMAR' 



INITAL 



Initialize SSIM, 

DSPEED, INOCC, RBAL, 

PERCNT, CCAP 



Traffic input for 

initial and final 

analysis year 



Analysis years, 
pavement type, 
thickness, freeway 
type & length 



Initialize simulation 

defaults for pavement 

type 



I 



Initialize hourly 
traffic default matrix 



Determine annual 18- kip 
threshold for pavement 



>© 



42 



INITAL cont'd. 






^ 






Routine 
OVER 




yr 




Routine 
RANDOM 




V 




Routine 
SPEED 




V 




Routine 
INOCC 




'I 


r 




Routine 
RECON 






^ 


r 




RETURN ) 



43 



SUBROUTINE: INITAL 
ROUTINE: OVER 

Purpose 

This routine reads as optional input, overrides specified by the 
program user. Each of the overrides has been initialized with default 
values. This initialization occurs in BLOCK DATA for all labeled 
common variables used in the program "EAROMAR". The remaining options 
are initialized with default values in the subroutine, INITAL. 

The input format for override options available to the program 
user are described in detail in the section covering optional input 
format and description. They can be specified in any order by the user. 
The override switch determines how the optional input is read by the 
program. 

The input options for overriding variables are as follows: 
Switch = 1 - Hourly volume distribution by trip purpose 

The array PCTADT is initialized with hourly distributions for each 
of six trip purposes. These are: 

1. Work trips 

2. Personal business trips 

3. Social -recreational trips 

4. School trips 

5. Vacation trips 

6. Commercial trips 

The initialization default distributions are shown in Figures 3 through 10 . 
The program user, at his option, can override one or all of these distributions 



44 





z 
o 

1- 
o 

UJ 

Qc: 
o 

< 

UJ 










^ 


Q. 








s 




< 




CO 







Ql 




|V» 
















^ 


, 


o: 


— 




O 


pl^ 




^ 


:— 







— 


















































— , 
























I 




















: 



CM 



CM 



O 
CM 



00 



u> 






^ o 

X 



00 



iD 



o 

+-> 
o 

O) 

S- 



CO 
(U 



< 

•r- 

i- 

o 

M- 
O 

c 
o 

+-> 

13 
jQ 
•r- 

S- 
-M 



CO 



J- 






<\J 



o 

CM 



(D 



CM 

lN30d3d 

45 



00 



o 

UJ 

o 
< 

UJ 
Q. 

a: 

I- 
o 






OJ 



CM 
OJ 



O 
CM 



00 



(0 



o 
cvi o 

O 
O X 



00 



(D 



CO 
Ql 



to 
o. 

i- 

o 



0) 



CVJ 



O 
ro 



lO 
CM 



O 

CM 



in 



lO 



lN30d3d 

46 




lN30d3d 



(D 



fO 



47 



q: 



UJ 



o 

It! 



CM 



I I 



CM 



O 



00 



«> 



o 



o 

X 



00 



<p 



Q. 



0) 

c 

•r- 
(/) 

.a 



iia 

c 
o 
I/) 

X- 

<u 

O- 



<^ 



(U 

J- 



C7> 



CVJ 



CJ 



CO (0 

lN33d3d 

48 



(NJ 



CO 
0. 



< 
o 



■±. 



cvi 



CVJ 
CM 



O 

CM 



00 



U> 



5 5 

O 
O 









+J 
u 



CO 



00 



(P 



CJ 



(£> 



in 



to 
lN3Dd3d 



OJ 



49 




o. 






o 
o 






CO 

i- 



00 



o 

LU 

a: 



< 

UJ 
Q- 






o 
o 

X 

o 

CO 






CM 



o 

CJ 



00 



U) 



^5 



V) 

a. 



o 
o 



o 

00 



CJ 



3 
O 

I 



en 






D> 



00 



a> 



CJ 



lO 



CO 



o 
lN3Dd3d 

51 



(P 



fO 



a. 
q: 

h- 

UJ 

-J 
o 

I 

LU 

> 

-J 
< 

o 

LjJ 

o 
o 



CVJ 



cvi 

CM 



o 



00 



(0 



— < 



OJ 



o 
a: 

O 

X 



Q. 






u 



o 

C_) 



u. 
no 



00 



(O 



CVI 



00 



lN30d3d 

52 



CVJ 






The 24-hour distribution totals unity for each trip purpose and direction. 
Switch = 2 - Percent of Total Volume by Trip Purpose 

The array PERCNT is initialized by direction and for the initial and 
final analysis year with the percentage distribution of total volume (ADT) 
falling in each of the following trip purposes: 

1. Work 

2. Personal business 

3. Social -recreational 

4. School 

5. Vacation 

6. Commercial 

The initialization defaults are shown in Table 6 , The program user, at 
his option, can override the percentage distribution by direction and ana- 
lysis level (initial or final year). 
Switch = 3 - Directional balancing switch 

This switch causes the hourly distribution of traffic by direction 
to be balanced so that the distribution is identical in both the AM peak 
and the PM peak directions. 
Switch = 4 - Permitted occupancy interval by activity 

The array INOCC is initialized with values defining when the roadway 
may be occupied to perform each activity as shown in Table 6. The array 
variable is dimensioned as follows: 

INOCC (10,3) - Column one holds up to ten descriptors. The 10th position 
is reserved for the default option, therefore, the user may enter a maxi- 
mum of nine descriptors. The three switches associated with each descriptor 
are the following: 

53 



^ 



CI. 



ra Q_ 



■t- OJ 



o 

•n- • 

s- c 

4-> O 

fO -1- 

E +J 

13 

+-> JD 

13 S- 

n3 +-> 

<4- CO 

CU -r- 

-O "O 

E OJ 

fO CO 

s- o 

CD Q. 

O S- 

s- :3 

D_ a. 



i^ 4-> 
O) 

fC 



03 

OJ 
Q- 



O) Q_ 



•I- J^ 

+-> fO 

•r- OJ 

c: Q. 



O) 

t/1 

Q- O 
•r- CL 

I— =3 









oo 
oo 



oo 
oo 



cyi 



00 



CTi 



00 



0~i 



00 



CTi 



00 



ro 



>=:^ .-I 



00 



CO 



CO 

CM 



CO 
OJ 



0~) 



CTi 



O 



cn 



5^ 
Ln 



<Ti 





E 


lo 










o 


CO 










•1 — 


CU 










4-> 


c 










ea 


•I— 










Qi 


to 










i- 


^ 










o 


JD 






^~ 




OJ 








fO 




S- 


^-> 


c 




•1— 




1 


ro 


o 




o 




^i~ 


C 


•r^ 


p^ 


S- 




ro 


o 


-M 


O 


O) 


.^ 


•I— 


I/) 


(O 


O 


E 


S- 


a 


S- 


O 


sz 


E 


o 


o 


O) 


03 


o 


o 


IS 


oo 


Q. 


> 


00 


C_5 



54 



1 = Activity number 

2 = Occupancy starting hour 

3 = Occupancy terminal hour 

Activity number 10 is a dummy number which can be assigned to Switch No. 1 
when the start and terminal hour are to be associated with all activities. 
The default is a dummy activity number 10. Should the program user elect 
to define a period applicable to all activities, the default is overridden. 
Otherwise, the default is supplemented by the user-supplied descriptors. 
The default occupancy interval is only used when an occupancy interval for 
a given activity is not made available to the program. 
Switch = 5 - A range of override parameters by activity which are held in 
the array OVER. 

The default values for this array are shown in Table 7 . The program 
user at his option can override any one of these defaults by activity. 
Included in OVER are the variables which are identified by the following 
switches : 

1 = The number of continuous hours that a crew is permitted to work 

2 = The maximum distance in feet between worksite locations. This 

defines joint spacing, the maximum size of a patch, etc. 

3 = A workload model factor which is used to multiply the value 

created by the workload models in the routine AWORKL. As ex- 
ample, if the model predicts 10 units and the workload model 
factor is 3, then the workload becomes 30 (3 x 10). 

4 = A workload model fixed annual rate which when input, is substi- 

tuted for any computed workload value in the routine AWORKL. 



55 



(U 



KO 



•a 


1-H 


(U 


%^_^ 


c: 


S- 


Dl 


O) Lf) 




-i 


V) 


3 


<o 


2: 


,*-— *s 




w <: 


O) 


0) I— 1 


-o 


3 " 


O "id- 


>— :s 


(_3 


fO — 




> q: 


CO 


UJ 


(U 


■)-> > 


• r— 


r— O 


-t-> 


3 


•r- 


ns 0) 


> CO 


M- n- 


•(— 


O) JD 


+J 


-O fO 


u 


•r— 


< 


E S- 




fO fO 




s- > 




en 


C\J 


o <u 




s- -o 




Q.T- 




s_ 




O) s- 




^ cu 




1- > 




o 


t— 1 


• o 




■^ 4-> 





c 
o 

•r— 

-C 4-> 

a CM 

•r- S- 

3 o 

CO </> 
Qi 



o • 

4-> O 

•I- ^ 

s 

CO 



o 
o 


o 
o 


o 
o 


o 


o 

ID 


o 


o 


LO 
CVJ 


o 
o 


o 
o 


in 


o 


CM 
t— 1 


o 


t-l 


o 


O 


o 


o 


o 


1—1 


o 

r-l 


o 


o 



o 
o 



00 



o 
o 



CO 



o 
o 



00 



o 
o 



00 



o 
o 



00 



o 
o 



CT» 



o 
o 



o 
o 



o 
Ln 



o 
o 



o 
o 



o 

LO 



o 
o 



o 
o 



un 

CVJ 



o 

LO 



o 
o 



o 

T— I 

o 



o 
o 



o 
o 



o 

LO 



o 
o 



o 
o 



o 

LO 



o 
o 



o 

o 



LO 
CM 



o 

LO 



o 
o 



o 

T—i 

o 



o 
o 



o 
o 



O »-H 
LO 



o 
o 



o 

LO 



o 

CM 



o 
o 



LO 
CM 



o 
o 



o 
o 



o 
o 



o 
o 



o 

LO 



o 
o 



o 
o 



o 

LO 



o 
o 



o 
o 



LO 
CM 



CM 



o 

LO 



o 

I— I 

o 



o 



o 
o 



o 
o 



o 

LO 



o 
o 



o 
o 



o 

LO 



o 
o 



o 
o 



LO 
CVJ 



o 

LO 



o 
o 



o 
o 



o 

LO 



o 
o 



o 

LO 



o 
o 



o 
o 



LO 
CM 



o 

LO 



o 
o 



CO 



o 

t— I 

o 

o 

o 

o 

r-l 

o 



o 
o 



CM 



o 
o 



o 
o 





CD 


s- 






























E 


o 




U) 


























•p— 


+J 




s- 










JSZ 








J= 






10 


CJ 


o 




3 




to 






-»-> 








-M 






3 


to 


m 


ai 


o 


r— 


S- 






CD 








CD 




o 


o 


Q, 


^- 


-o 


-C 


O) 


3 






E 




(U 




E 




-(-> 


3 


00 




"f— 




> 


o 


r^ 




OJ 




E 




(U 






C 




r— 


s- 


E 


<u 


JZ 


o 




1 — 




3 


o 


^- 




E 


•1— 


E 


CD 


s- 




r— 




S- 








r^ 


• 1 — 






CU 


•4-> 


O 


-o 


<u 






E 


4-> 




O) 




o 


-M 


OJ 




a. 


E 


•r- 




> 


CL) 


OJ 


•r- 


E 




E 




> 


(T3 


E 




o 


O to 


4-> 


^ 


o 


E 


o 




O 




O 






S- 


O 






u s- 


(O 








E 


O) 


o 




N 




cu 




N 




10 


3 


U 


TJ 


XJ 


+-) 


fO 


e 








to 


r— 


>> 




to 


s- 


-a o 


O 


(O 


fO 




E 


•1 — 


o 




hr. 


(U 


JD 


+-> 


F 


OJ 


<u u 


0) ^ 




O 


o 


, 


O) 


+j 






3 


1 — 


rC 


•( — 


3 


r— 


-o •<- 


s 








O) 


•fJ 




4- 


to 


i£ 


•r- 


<: 


o 


F 


•r™ 


r— ^- 


O 2 


-^ 


^ 


.^ 


> 


E 


O) 


4- 


i~ 




i= 


o 


03 




F 


3 l+- 


1— d) 


s- 


s_ 


s- 


fO 


•r- 


S- 


fO 


3 


X 






Q. 


E 




o <o 


1— S- 


o 


o 


o 


s_ 


fC 


3 


S- 


O 


fO 


E 


1 — 


fa 


• 1— 


E 


^ s- 


<: u 


3: 


3: 


3 


h- 


s: 


o 


1— 


-E 


2: 


•>— 


< 


u 


2: 


•r- 


to +-> 



CM 



CO 



UD 



00 



CT> 



CM 



55 



This permits the user to bypass the workload models built into 
the program. 

5 = Travel time, which is the time in hours, required by a crew 

to go from a garage facility to the freeway and then return to 
the garage facility at the end of the work period or day. 

6 = The maintenance level which determines the frequency of perform- 

ing an activity. This is a key parameter, and if an activity 
is to be deleted, the maintenance level snould be specified as 
zero. The program bypasses all processing any time an activity 
with a zero occurs in the program iteration process. A main- 
tenance level value of 1 causes the annual workload to be pro- 
cessed once during the year. A maintenance level value of 2 
causes the annual workload to be divided into two equal parts 
and the economic analysis reflects the costs to occupy the road- 
way at two occupancy intervals. A maintenance level value of .2 
will cause the program to accumulate annual workload until the 
maintenance level accumulates to a value above 1. In this case, 
the activity would be executed once e^ery five years and the 
workload will be five times the annual workload. 

7 = The cure time in hours required for an activity. Where this 

value is specified, it reflects time which the roadway is 
occupied during each occupancy when no productive work can be 
done. 

8 = The time in hours required to install traffic control signing 

and delineation. This is time which precedes the start of 



57 



productive activity. It should reflect the mean time which can 
be used for either the installation or removal of traffic control 
9 = The maximum length permitted for a traffic control zone. This 
governs the frequency of traffic control installations in the 
roadway occupancy simulation process which occurs in subroutine 
MAI NT. 

10 = The volume/capacity ratio allowed. This value is tested against 

the V/C ratio computed for each hour of proposed occupancy. If 
this value is exceeded, the roadway cannot be occupied during 
that hour by maintenance crews. 

11 = The minimum work zone distance in feet. This specifies the 

length of the worksite required when crews occupy the roadway 
to perform work at a single worksite location. This is the 
area occupied by crew and equipment. It should not include 
the taper distance used for traffic merging prior to reaching 
the worksite or leaving the worksite. 

12 = The number of shoulders open to traffic. 
Switch = 6 - Vertical and Horizontal Alignment 

The array ALIGN is initialized with zeroes, a default reflecting a 
roadway which is a normal tangent section. The program user, at his 
option, can specify vertical and horizontal alignment. This is used in 
the determination of the vehicle operation cost array in routine OPCOST 
which resides in subroutine OPPARA. 

Switch = 7 - Vehicle Classification Data 

The array WEIGHT is initialized with the default values shown in 
Table 8 . The user has the option of overriding these default values. 

58 



Table 8 . Program default values for vehicle 
classification variable WEIGHT (N,I) 



Vehicle 1. Vehicle weight 2. Percentage of 3. Sales price 
number class in kips vehicles in associated with 
N weight class weight class 



1 4.2 

2 15.4 

3 39.8 

4 53.6 



93.1 


$ 3000 


2.9 


7300 


2.2 


24400 


2.8 


39300 



59 



If this option is used, the entire array must be entered, and the first 
class must be a description of passenger cars. Up to nine different 
commercial vehicle classes may be defined. 
Switch = 8 - Maintenance Simulation Parameters 

The array SIM is based on pavement type and the default is obtained 
from array SSIM, as shown in Table 9. 

The user, at his option, may override the simulation parameters for 
any activity. The simulation parameters described in SIM are the following 

A. Type of worksite switch 

1 = Full size patch 

2 = Partial size patch 

3 = Lanes 

B. Worksite factor 

C. Worksite add-on 

D. Simulation iterations 

E. Spacing parameter switch 

1 = Random 

2 = Uniform 

Switch = 9 - Unit Operating Cost 

The arrays FUEL, TIRES, OIL and variable SINDEX are initialized for 
passenger cars and composite commercial vehicles in BLOCK DATA. The de- 
fault values are shown in Table 10. The user has the option of overriding 
any one of these unit cost arrays or the variable SINDEX. The array unit 
costs are used in converting fuel consumption, tire wear and oil consump- 
tion to cost. The variable SINDEX is used to modify the vehicle mainten- 
ance costs which are based on 1963 dollars. 
Switch = 10 - Print Switch 

The variable IPRINT is initialized with the value 1 which produces 

60 



Table 9 . Program default matrix used in the 
initialization of the simulation matrix 



Activi 


ty 


Worksite I 


4orksi 


te 


Worksite 




Spacing 


No. 




Type Multipl 


ier 


Add-on 


Iterations 


Type 






Po 


rtland 


Cement Concrete 






1 




Full Depth 


1 







100 


Random 


2 




Partial Depth 


1 







100 


Random 


3 




Full Depth 







1 


1 


Random 


4 




Lanes 


12 







250 


Uniform 


5 




Partial Depth 


3 




10 


100 


Random 


6 




Full Depth 


10 







100 


Random 


7 




Lanes 


1500 







10 


Random 



Bituminous Concrete 



1 


Full Depth 


1 





100 


Random 


2 


Lanes 


12 





250 


Random 


3 


Full Depth 


1 





100 


Random 


4 


Lanes 








1 


Random 


5 


Lanes 








1 


Random 


6 


Lanes 








1 


Random 


7 


Lanes 


1500 





10 


Random 



Composite Pavement 



1 


Full Depth 


10 





100 


Random 


2 


Lanes 








1 


Random 


3 


Full Depth 





1 


1 


Random 


4 


Lanes 


12 





250 


Uniform 


5 


Partial Depth 


3 


10 


100 


Random 


6 


Lanes 








1 


Random 


7 


Lanes 


1500 





10 


Random 



61 



Table 10. Program default values for 
vehicle consumption parameters 



Consumption 
Parameter Passenger Cars Commercial Vehicles 

Fuel($/Gallon) 0.40 0.30 

Oil 0.80 0.40 

Tires($/.001 inches) 0.10 0.20 

Maintenance Index 1.5 1.5 



62 



maximum program output printing. The user can restrict printing by over- 
riding this variable. The options are as follows: 

1 = Direction, Years, Year Total, Total 

2 = Years, Year Total, Total 

3 = Year Total , Total 

4 = Total 

The variable JPRINT is initialized with 1. This causes all input, scalar 
and array assumption values used in the program to be printed. A value 
of 2 supresses this print. 
Switch = 11 - Pavement Lane Width 

The variable WIDTH is initialized at 12 feet. It can be overridden 
by the user. 
Switch = 12 - Income Level 

The variable INC is initialized as 4 and is used in routine VTIME 
which creates the value of time array. It can be overridden by the user. 
Switch = 13 - Speeds for Walking and Traveling on Roadway 

The variables WALK and TCMOVE are initialized at 2 mph and 20 mph. 
These are used in the subroutine MAINT during the simulation of roadway 
occupancy. They can together be overridden by the user. 
Switch = 14 - Terminal PSI Value 

The variable PSIRS is initialized at 2.0. This is used in the 
routine AWORKL to determine resurfacing requirements. The resurfacing 
requirement also can be triggered by the pavement systems program that 
this program "EAROMAR" was designed to support. The user has the op- 
tion to change PSIRS. 

63 



Switch = 15 - Detour Parameters 

The variable DETOUR is initialized with the default values shown in 
Table 11. The user can specify through optional inputs a completely new 
set of detour descriptors. The detour condition occurs in the program 
anytime all lanes are closed and no shoulders are available. The varia- 
bles included in detour are the following: 

1 = The distance between freeway interchanges which is used to 
evaluate normal motorist operation conditions 

2 = The detour length which is the influence zone for the free- 
way traffic when a detour is used 

3 = Detour speed limit which is needed in the development of a 
speed matrix for operation on the detour 

4 = Detour volume which must be added to the freeway volume 
before an analysis of the operation on the detour can be made 

5 = Detour capacity which influences the speed matrix deter- 
mined for the detour and the operation on the detour 

6 = Average composite stop cycles on the detour used in de- 
termining speed change cost for operation on ^the detour 

7 = Direction lanes on the detour needed to convert capacity 
to lane capacity in the determination of the speed matrix 

Switch = 16 - Design Life 

Two design life values which can be overridden are used in the 

program. The variable DLIFE specify the design life of the initial 

pavement. The variable RLIFE specifies the design life of a resurfaced 

pavement. The design life controls resurfacing cycles when not overridden 

by a pavement systems override. The default value assigned in the program 

are 20 years for DLIFE and 10 years for RLIFE. 

64 



Table 11. Program default values used in 
variable DET0UR(7) 



Subscn 


pt 


Description 


Value 


Units 


1 




Interchange Spacing 


2.00 


Mi 1 es 


2 




Detour Length 


2.60 


Miles 


3 




Speed Limit 


45.00 


MPH 


4 




Traffic Volume 


20000 


ADT 


5 




Capacity 


2400 


Vehicles 


6 




Average Stops all 
Vehicles 


.80 


Stops 


7 




Number of Directional 
Lanes 


2 


Lanes 



65 



Switch = 17 - Activity Standards 

The activity standards are used in the evaluation of the cost of main- 
tenance and in the determination of roadway occupancy time. The variable 
has three components for each activity. These are as follows: 

1 = Labor and equipment cost per hour of crew operation 

2 = Material costs per activity workload unit 

3 = The productivity of the crew in performing the activity 
in terms of workload units per hour. 

Switch = 18 - Capacities 

The array CAP is based on freeway type and the defaults are obtained 
from array CCAP. 

The user at his option may override the capacity values for a given 
freeway type. The subscripts used in defining the closure category 
applicable varies with the freeway type. On an eight lane freeway the 
following categories are applicable: 

1 - CAP(l) = One lane closed 

2 - CAP(2) = Two lanes closed 

3 - CAP(3) = Three lanes closed 

4 - CAP(4) = Shoulder 

5 - CAP (5) = Freeway 

Switch = 19 - Freeway Design Speed 

I 

The variable DSPEED is initialized at 70 mph. It is used in the 
routine SPEED which resides in subroutine INITAL as part of the algorithm 
generating a speed matrix which is used in the development of motorist 
impacts in subroutine MOTOR. It can be overridden by the user. 



66 



Switch = 20 - Average Accident Cost 

The variable AACOST is initialized with 850 dollars and can be 
overridden by the user. It is used in subroutine MOTOR to factor 
accidents to accident costs. 
Switch = 21 - Vehicle Occupancy 

The variables OCWORK, work trip vehicle occupant and OCSCHL, 
school trip vehicle occupant, are initialized with 1.4 and 2.5 respectively. 
The user can override these variables which are used in the evaluation of 
the value of time for work trips and school trips. 
Switch = 22 - Commercial Value of Time 

The variable COMVOT is initialized with $8.50 per hour and is used 
in evaluating the loss time for commercial vehicles. The user can over- 
ride this variable. 
Switch = 23 - Speed Limit 

The array SLIMIT, which can be overridden by the user, is assigned 
default values and has the same subscript constraints relating to closure 
category applicable to capacity. For a six-lane freeway, these are as 
follows: 

1 - SLIMIT(l) = One lane closed 

2 - SLIMIT(2) = Two lanes closed 

3 - SLIMIT(3) = Detour 

4 - SLIMIT(4) = Freeway 

The defaults used in the program apply to 8-1 ane freeways and in the data 

initialization statement, SLIMIT(l-5) is assigned 60 mph. In the program, 

the speed limit assigned to a detour is reassigned to the directional lane 

position for the variable, i .e. , SLIMIT(LANES) = DET0UR(3). For a six-lane 

freeway, LANES = 3. If DET0UR(3) = 35 mph, then SLIMIT(3) = 35 mph. 

67 



General Flow for 
Routine OVER in 
Program 'EAROMAR' 



OVER 



Optional input 
switch IP 



Yes 





1. Traffic Distribution 



2. Trip Purpose Distribution 



3. Direction 



4. Occupancy Constraints 



5. Override Array 



6. Alignment 



7. Vehicles 



8. Simulation 



9. Operation Unit Costs 



10. Print Switch 



11. Lane Width 



12. Income Level 



13. Occupancy Moves 



14. Terminal PSI 



15. Detour Parameter 



16. Design Life 



17. Activities Standard 



18. Capacities 



19. Design Speed 



20. Ave. Accident Cost 



21. Vehicle Occupancy 



22. Commercial Time Value 



23. Speed Limits 



68 



SUBROUTINE INITAL 
ROUTINE: RANDOM 

Purpose 

This suoroutine creates four arrays needed for the simulation of 
roadway occupancy by maintenance crews in the subroutine MAI NT. The 
four arrays areas follows: 

1. PATCHF, 1000 random size PCC or bituminous patches 

2. PATCHP, 1000 random size partial depth PCC patches 

3. RLOC, 1000 random numbers in ascending order from to 1 

4. SWORK, the simulation workload for each of seven activities 

Description 

To execute this routine, the pavement type, pavement lane width, 
spacing between worksites, and the array SIM are needed. The routine is 
executed one time for any analysis period. 

The routine generates pairs of random numbers (X,Y) based on an 
initial odd seed number of 7. The first random number is multiplied by 
the distance between concrete patches specified to the program (distance 
between worksites). For partial depth patches, the random number is 
multiplied by a maximum area of 40 square feet. The length or area thus 
determined is substituted into a density function and the predicted 
value compared with the second random number to determine if it falls 
under either of the density function curves. 

The first density function describes the distribution of full depth 
Portland cement concrete patch lengths and is as follows: 

F(y) = .000179((.75X)V-^^^) 
69 



The second density function describes the distribution of partial 
depth Portland cement patch size areas and is as follows: 

F(y) = 2.2(.75X)^-^(e"-''^^) + .1 

Each time a random pair of numbers is accepted for the full depth 
patch it is factored and placed in the array PATCHF. For portland cement 
concrete pavement, the factor is the pavement lane width thereby pro- 
ducing a patch in square yards which averages four yards long and the 
width of a pavement lane. For the bituminous pavement, the length is 
factored by ten producing an average patch in square yards which is 40 
yards long and the width of the pavement lane. The partial depth 
patches are placed directly in the array PATCHP as they are acceptable. 

The process is iterated until 1000 full size and 1000 partial depth 
patches have been established. 

A random number is placed in the array RLOC during the first 1000 
iterations of the process. Following the completion of the iteration 
process, the 1000 random numbers in the array RLOC are sorted in ascending 
order. 

Finally, the routine establishes the magnitude of the lane mile work- 
load which will be used in the simulation subroutine MAINT for each activity, 
The array SIM has the five following descriptors for each activity: , 

A. Type of worksite switch is either 

1. Ful 1 size patch 

2. Partial size patch 

3. Lanes 

B. Worksite Factor 

C. Worksite Add on 

D. Simulation iterations 

70 



E. Spacing parameter switch 

1. Random 

2. Uniform 

The worksite switch determines how the simulation workload is established, 
The three possibilities are as follows: 
Where 

A, = Full size patch size 

Ap = Partial depth patch size 

A^ = Number of lanes closed 

B = Worksite size multiplier 

C = Worksite size add on 

D = Number of simulation iterations 

SW = Simulation Workload 

Switch = 1 

i = D 
SW = E (Aw.v X B+C) 
i = l ^^'^' 

Switch = 2 

i = D 
SW = E il\^(.^ X B+C) 
i=l ^^^^ 



Switch 



SW = (A3 X B+C) X D 



71 



General Flow for Routine RANDOM in Program 'EAROMAR' 



RANDOM 



No 



Generate two 
random numbers 



VW' 



If full size patch 
is acceptable 
place in Array 
and increment NI 



I 



If partial size patch 
is acceptable place 
in Array and 
increment N2 



1 



Hold 1000 random 
numbers 




f SPEED W 



Yes 




Sort 1000 random 
numbers in ascending 
order 



i 



Compute a simulation 

workload for each 

activity 



72 



SUBROUTINE INITAL 
ROUTINE: SPEED 

This routine creates the array SP which identifies to the subroutine 
MOTOR the speed to associate with a computed volume-capacity ratio for 
the freeway, a lane closure, or a detour. 

Description 

The execution of this routine requires the freeway design speed and 
the speed limit and hourly capacity for the freeway, each lane closure 
and the detour. 

The lane capacity is determined in the program by dividing the 
assigned capacity by available lanes. 

The following algorithm is used to establish a speed matrix for the 
freeway, detour and each lane closure category: 
Given 

DS = Freeway Design Speed 
SL = Category Speed Limit 
C = Category Capacity (1000 's) 
L = Lanes open to motorist 
V^ = A volume in 1000 's 
Find S = Speed in miles per hour for a given v/c ratio 

1. SI = .9DS 

2. S2 = 12C + .SC'^'^^ 

3. S3 = SI - S2 

4. S4 = (.4V - 10)(V/C) 

5. S5 = S3 - S4,S5 > 

73 



6. S6 = (V/C)^^(S5) 

7. S^ = SI - S4 - S6 

d 

8. Sj = SL X .9-3.6 V/C 

9. S = MINIMUM (S^,S^) 

This algorithm is iterated through eleven uniform increments of 
the volume-capacity ratios starting at zero and going to 1. 



74 



General Flow for Routine SPEED in Program 'EAROMAR' 



SPEED 



J 



Do for all 
analysis conditions 
IC=1, LANES+1 




I 



Do for a range of 
-^volume capacity ratios 
1=1,11 



I 



M=lANES-IC 




Compute speed based 

on design & capacity 

for freeway 




Compute speed based 

on design & capacity 

for lane closures 



Compute speed based 

on design & capacity 

for detour 



Compute speed based 
on speed 1 imit 
for freeway 



Compute speed based 

on speed limit 

for lane closures 



Compute speed based 

on speed limit 

for detour 



Select and hold 
minimum speed 



^ INOCC \ 



75 



SUBROUTINE INITAL 
ROUTINE: INOCC 

Purpose 

This routine creates the array IHOUR which identifies to the routine 
AVAIL in subroutine MAINT the hours when the roadway can be occupied by 
work crews. 

Description 

The execution of this routine requires the array INOCC which esta- 
blishes the roadway occupying starting hour and finishing hour interval 
for each activity. Each activity is addressed in turn and the array 
INOCC examined to determine if a starting hour and finishing hour inter- 
val has been specified for the activity. When no activity is present, 
the default interval associated with activity number ten are used. The 
array IHOUR has been initialized with zeroes. Each hour of occupancy 
permitted for each activity is valued as unity (1) in the array. There- 
fore the resulting array has associated with each of 24 hours for each 
activity either a zero or a one. The crew can ocQupy the roadway only 
during the hours having a one. 

A 24 hour occupancy interval is established by assigning the variable 
for crew hours (0VER(12,IA) ) a value of 24. This causes the IHOUR array 
to have I's placed in each of the array's 24 positions. 



76 



General Flow for Routine INOCC in Program 'EAROMAR' 



INOCC 



Do for all 

Activities 

IA=1,7 





no 



Assign default 

occupancy to 

activity 



Establish occupancy 
Array for activity 




11 



SUBROUTINE INITAL 
ROUTINE: RECON 

Purpose 

This routine establishes a traffic array which is used throughout 
the program "EAROMAR". The traffic array consists of a base year and 
yearly add-on increment which describes the hourly distribution of free- 
way traffic by direction for the following seven trip purposes: 

1. Work 

2. Personal business 

3. Social-recreational 

4. School 

5. Vacation 

6. Commercial 

7. All traffic 

In this routine, the initial and final volumes, the percentage of 
commercial vehicles, and the A.M. peak direction splits also are con- 
verted to base year and yearly increment, respectively. 

Description 

The execution of this program requires the arrays PCTADT and PERCNT 
as initialized or overridden by the program user in routine OVER. Re- 
gardless of the percentage of commercial volume reflected by the array 
PERCNT, it is replaced by the required input variable TRUCKS which defines 
percent commercial. This reconciliation is achieved by forcing all 
passenger car trips to equal the difference between the percentage in 



78 



TRUCKS and 100 percent. The ratio of the new passenger portion to 
the original passenger portion creates a factor which is applied to 
the passenger trip purposes in the array PCTADT. 

The routine tesfe to determine if the program user has overridden 
any portion of the array PCTADT. Each user overridden portion identi- 
fied is checked and reconciled to 100%. Each of the individual trip 
purpose 100% distributions in the array PCTADT is factored by the appro- 
priate percentage in the array PERCNT. If the "all traffic" portion 
of the array PCTADT is input, then all trip purposes are reconciled to 
the "all traffic" value for each hour. 

If the "all traffic" portion of the array PCTADT is not input, 
this portion is created by summing the individual trip purpose distri- 
butions for each hour. 

When the directional balancing switch is specified in routine 
OVER by setting IDIR=3, the distributions for both directions are re- 
placed by the average distribution. 

Once the hourly distributions for both directions have been created, 
the individual trip purpose distribution portion of the array PCTADT is 
converted to hourly distributions between the different trip purposes. 
The daily distribution of tra:ffic is held in the "all traffic" portion. 

The final step of this routine is to convert the initial and final 
year portions of the arrays PCTADT, VOLUME, TRUCKS, and SPLIT to base 
year and yearly increment, respectively. 



79 



General Flow for Routine RE CON 
in Program 'EAROMAR' 






RECON 



I 



Do 



for initial 
final year 
1=1 to 2 



and 



I 



Do for AM and PM peak 
directions 
ID=1 to 2 



I 



Adjust distribution 
of traffic between trip 
purposes to reflect 
input percentage of 
commercial vehicles 



Do for each individual 
trip purpose IT=1 to 6 




Yes 



Make overridden 

distribution sum 

to 100% 



0*^ 




80 



RECON cont'd. 





Make input distribution 

of all traffic sum to 

100% 



Do for each trip 
purpose IT=1 to 6 



Factor 100% distributions 
by distribution of 
traffic between trip 
purposes 




I 



Adjust each trip purpose 
distribution such that sum 
of individual trip purposes 

equals input distribution 
of all traffic 




Convert daily 

distribution of 

individual trip 

purposes to hourly 

distributions among 

trip purposes 




Do for each trip 
purpose IT=1 to 6 



I 



Factor 100% 

distribution by 

distribution of 

traffic between 

trips 



© 



I 



Create 

distribution of 

all traffic 



Average 

distribution for 

morning and 

evening peak 

directions 



*© 



fil 



RECON cont'd. 




Convert initial and 
final year 
distributions to base 
year and yearly 
increment 
distribution 



I 



Convert initial and 
final volumes, 
percentages of 
commercial vehicles, 

and AM peak 
direction splits to 
base year and yearly 
increments 



RETURN 



82 



SUBROUTINE OPPARA 

Purpose 

This subroutine contains the two routines VTIME and OPCOST. 

Description 

The routines are combined to reduce overlay requirements. The 
routine VTIME generates a value of time matrix and OPCOST generates 
a vehicle operation cost matrix. Both are described in detail elsewhere. 



83 



General Flow for Subroutine OPPARA in Program 'EAROMAR' 



OPPARA 





y 






VTIHE 















^ 


r 






OPCOST 

1 













RETURN 



84 



SUBROUTINE OPPARA 
ROUTINE: VTIME 

Purpose 

This routine establishes an array, VTRATE, wnich is used in 
routine TIME of subroutine MOTOR. This array contains the hourly 
values of time loss from 1 to 40 minutes for the following five 
passenger car trip purposes: 

1. Work 

2. Personal Dusiness 

3. Social -recreational 

4. School 

5. Vacation 

Description 

Tne execution of this program requires the initialization of 
the average income level of a motorist, INC, with any one of the 
following switches : 

1. Under $3999/yr. 

2. $4000-5, 999/yr. 

3. $6000-7, 999/yr. 

4. $8000-9, 999/yr. 

5. $10,000-ll,999/yr. 

6. $12, 000-14, 999/yr. 

7. $15 ,000-19, 999/yr. 

8. Over $20,000/yr. 



85 



The values of time between five and fourteen minutes are valued 
using the following equations: 

BEN = bg + b^At + b^lAt 

PO = 1.0/(1.0 + EXP(A X BEN)) 

BAVG = (1.0 - PO) X (BElM + Ln( ^^^^°V( 1-PO) )/A 

Where 

b^, b^, bo and A are constants 
12 c 

for each trip purpose for the time intervals (5 < At < 15 and 

At ^ 15) 

BEN - is the benefit of the 50th percentile motorist 

PO - is the probability of a motorist having zero benefits 

BAVG - is the average benefit of all motorists in cents 



86 



General Flow for Routine VTIME 
in Program 'EAROMAR' 






VTIME 



I 



Do for each trip purpose 



^r 


Init 

of 

val 


ialize I, subscri 
maximum hourly 
Lie of time loss 


pt 



I 



Do for each time loss 
J = 5 to 14 minutes 



I 



Compute hourly 
value of time loss 



I 



Compute intercept of 
benefits function for 
time losses 14 minutes 



Compute adjustment 
time losses 14 minutes 



I 



Do for each time loss 
J = 15 to I minutes 



I 



Compute hourly 
values of time loss 



-HI) 



87 



VTIME cont'd. 




Do for each time loss 
J = I to 40 minutes 





Hourly value of time 

loss, hourly value 

cf a time loss; I 




I 



Do for each time loss 
J = 1 to 4 minutes 



Compute the hourly 
value of time loss 




88 



SUBROUTINE OPPARA 
ROUTINE: OPCOST 

Purpose 

This routine creates the operation cost array OCOSTS to be used 
in the subroutine MOTOR in costing motorist operation cost. 

Description 

The execution of the routine requires the roadway alignment 
array ALIGN and the vehicle description array WEIGHT. 

The routine makes use of a series of models which predict fuel 
consumption, tire wear, oil consumption, vehicle maintenance, and 
depreciation as a function of vehicle operational speed and roadway 
alignment for a base weight passenger vehicle. These consumption 
parameters are placed in the array OCOST. 

A second series of models factors the base vehicle operation 
parameters to reflect the vehicles described in the vehicle des- 
cription array WEIGHT. Then the unit costs arrays FUEL, TIRES, OIL 
and SENDEX are used to convert the consumption units developed in 
these models to cost. 

The array OCOSTS which is created has operation costs for unity 
speeds 1 through 65 for passenger cars and for a single composite 
commercial vehicle. 

The models used in this routine are the following where 
A = model intercept 
B = model coefficient or variable 



89 



C = model coefficient or variable 

S = speed 

FS = float speed 

G = grade in percent 

H = curvature in degrees 

W = vehicle weight in kips 

RW = vehicle weight factor 

CP = consumption quantity per vehicle hour 

U = unit cost 

OCOST ( ) = operational costs 
Fuel Consumption in Gallons per Hour 

Positive Grade 

A = -.45 + .0278(5) 

B = .0348 + .0214(Ln(S)) 

CP = e^^ "" ^^^ 

Negative Grade 

FS = 3 + 7G 

1^ ^ ^(-.4844 + .0285(S)) 

3 ^ g(-.4884 + .0285(FS)) 

C = 1/(1.61 + .1(S)) 

CP = C where S ^ FS 

CP = A - B + C where S > FS 



90 



Curvature 








A = 


-.483 


- . 


087(lnH) 


B = 


e(-3- 


562 


+ .044(H)) 


CP = 


,(A^ 


BS) 




Weight 









A = l/(.46 + .0344(5) - .00031(5^)) 

B = l/(.78+ .0437(5) - .00047(5^)) 
RW= e^-A+^LnW) 

OCOST(FUEL) = RW X CP X U 

Tire Consumption in .001 's inch of wear per hour 

Positive Grade 

A = -8.26 + .095(G) 

B = 2.23 - .015(G) 
Cp= e^A+^Ln5) 

Negative Grade 

A = -8.26 + .2(G) 

B = 2.23 - .07(G) 

CP = e^^ ^ ^^"^^ 
Curvature 

A = -3.1 + .59LnH 

6 = .077 + .0023(H) 

CP = e^A ' ^^) 
Weight 

RW = .76 + .061(W) 



91 



ocost(t:res) = RW x CP x u 
Oil Consumption in quarts per hour 

Grade 

A = -3.414 - .0184(G) 
b = .0242 + .00142(G) 
CP= e^^"^^^ 

Weight 

A = .930 + .003(5) 
B = -.0149 + .0004(S) 
RW = 1/(A + BW) where W ^ 50 
RW = 3W/(30 + S) where W ^ 50 
OCOST(OIL) = RW X CP X U 
Maintenance Cost 

Positive Grade 

A = 5.828 - .014(G) 
B = 1.278 + .001(G) 

Negative Grade 

A = 5.828 - .0285(G) 

b = 1.278 - .011(G) 
Cp= ^(-A^BLnS) 

Weight 

A = .12 + .0084(ABS(S-20)) 
B = .315 + .0021(ABS(S-20)) 



92 



C = .00438 + .000023(ABS(S-20)) 
RW = -A + BW - CW^ where W ^ 50 

RW = 4.68 + .039(ABS(S-20)) + (.0772W - 50) where W ^ 50 
OCOST(MAI.nIT) = RW X CP X U 
Depreciation 

B = 1974(S)-^^^ 
C = 47.5 - 3.88(LnB) 
CP = S/(B X C) 
Weight 

RW = e--^^^ " '^^^^^ 
OCOST(DEPREC) = RW x CP x U 
Once all the costs for fuel, tires, oil, maintenance and deprecia- 
tion have been established for passenger cars and a composite commercial 
vehicle they are combined and placed into a single costs array called 
OCOSTS. 

OCOSTS(PC) = OCOST(Fuel) + OCOST(Tires) + OCOST(Oil) + 
OCOST(Maint) + OCOST(Deprec) 

OCOSTS(Coninercial) = OCOST(Fuel) + OCOST(Tires) + OCOST(Oil) + 
OCOST(Maint) + OCOST(Deprec) 

The OCOSTS array is dimensioned to have the operation costs per 
hour for the 65 speed increments 1 m.p.h. through 65 m.p.h. 



93 



General Flow for Routine OPCOST in Program 'EAROMAR' 



OPCOST 




A 



Do for 65 speeds 
IS = 1,65 



Compute base vehicle 

fuel consumption for 

project alignment 



Compute base vehicle 

tire wear for project 

alignment 



Comoute base vehicle 
oil consumption for 
project alignment 



Compute base vehicle 
maintenance cost for 
project alignment 



Compute base vehicle 
depreciation rate 



hHD 



94 



liiiiiMii-"-'-'' - - liiiT •■-^iiiiiiiiiiiiMiiifti^ 



OPCOST cont'd. 





Do for 65 speeds 
IS = 1,65 



I 



Compute fuel consumption 
for passenger cars 
and a composite 
commercial vehicle 



I 



Compute tire wear for 
passenger cars and a 
composite commercial 
vehicle 



I 



Compute oil consumption 
for passenger cars and 
a composite commercial 
vehicle 



I 



Compute maintenance 
cost for passenger cars 
and a composite 
commercial vehicle 



I 



Compute depreciation 
rate for passenger cars 
and a composite 
commercial vehicle 



*(i) 



95 



OPCOST cont'd. 




Combine fuel , tire, 
oil , matntenance and 
depreciation cost for 
passenger cars 



Combine fuel , tire, 
oil , maintenance and 
depreciation cost for 
the composite commercial 
vehicle 



RETURN 



96 



SUBROUTINE RPRINT 

Purpose 

This subroutine prints outputs on 8 pages of data which are used in 
the economic analysis of roadway occupancy. 

Description 

All of the required input, optional input and program defaults 
are combined to produce analysis constraints and program costs arrays. 
The subroutine RPRINT lists these constraints and arrays in an eight- 
page printout. A default of one is assigned to JPRINT to create this 
output. The user has the option of suppressing this print in routine 
of subroutine INITAL. 

The output consists of the following information, by page: 
Page 1 - A 7-activity by 24-hour matrix showing the available 
roadway occupancy hours as ones and the unavailable 
hours as zeroes. 
Page 2 - A sample of 50 full -depth patches, partial depth patches 
and random numbers generated by the routine RANDOM in 
subroutine INITAL. 
Page 3 - A list of the pavement design and traffic data which 

was either assumed or specified to the program. 
Page 4 - A speed matrix for the eleven increments of the volume- 
capacity ratio for each closure category and the freeway. 



97 



Page 5 - A base year and add-on matrix of tlie Kourly distribution 
of traffic by direction and trip purpose. 

Page 6 - A description of the workload and simulation constraints 
placed on each of seven work activities together with a 
description of the activity standard data used by the 
program. 

Page 7 - A matrix of the hourly operation costs for passenger cars 
and commercial vehicles generated by the program for 64 
increments of speed. 

Page 8 - A matrix of the hourly value of time for five trip pur- 
poses generated by the program for 40 increments of time 
saved. 



98 



General Flow for Subroutine RPRINT in Program 'EAROMAR 



I 



Random 
arrays 



Speed 
matrices 



Hourly volume 
distribution 
and 
composition 



Value of 
time array 



RPRINT 



Available 

occupancy 

hours 




Design 

& 

Traffic 

data 



Simulation & 

workload 
constraints and 
activity 
standards 




Operation 

cost 
matrix 




99 



SUBROUTINE YEAR 

Purpose 

This subroutine is used to control the analysis process. The 
routines AWORKL and PRINT reside in the subroutine. AWORKL , which 
generates annual activity workload and PRINT which outputs the ana- 
lysis results are each described in detail elsewhere. 

Each year's analysis by direction is executed by YEAR. Yearly 
traffic is established and the two subroutines MAINT and MOTOR are 
called. 

Description 

The subroutine YEAR is designed to interface with a pavement 
design systems program. Transfers of either 18-kip axle loadings 
or present serviceability index values will suppress the normal 
programming process for determining these two values. The present 
serviceability value controls resurfacing cycles. 

The hourly traffic array PCTADT, the volume array VOLUME, the 
directional split SPLIT and the commercial vehicle percentage of 
total traffic TRUCKS are all structured to be incremented each year. 
They all have a base level value and add-on value. Each time a new 
year is iterated, the add-on is added to the base value to create 
an updated value for the variable. 

The direction loop is controlled in subroutine YEAR. For each 
direction, at each year's iteration, a normal hourly volume is esta- 
blished for the freeway and the detour. The volumes are used to 

100 



create normal hourly speeds for the freeway and the detour. Once 
the hourly volume has been determined an average highway speed is 
determined for the freeway and the detour. Speeds are a function 
of the hourly volume-capacity ratio and are obtained from the array SP, 
The subroutine then calls MAINT and then MOTOR where the economic 
analysis of maintenance costs and motorist impacts is performed. 



101 



General Flow for Subroutine YEAR in Program 'EAROMAR' 




YEAR 



^ 


Do for each year 


w 


lY = 1,NYEARS 




V 



Establish annual volume, 
directional split and 
commercial percentage 



Adjust hourly distribution 
array for year 



AWORKL 



± 




Do for each direction 
ID = 1,2 



h-KD 



102 



YEAR cont'd. 






Establish freeway and 
detour normal hourly volumes 



Establish Freeway and 
detour normal speeds 



MAINT 



MOTOR 



PRINT 



RETURN 



103 



SUBROUTINE YEAR 
ROUTINE: AWORKL 

Purpose 

This routine through a series of workload models determines the 
annual workload for all activities associated with a given pavement 
design. 

Description 

The execution of this routine requires the following arrays and 
variables which are generated in subroutine INITAL: 

1. The array OVER which provides information on workload factors, 
or substitutions, work location spacing and maintenance level 

2. The arrays VOLUME and TRUCKS which permit the computation of 
annual 18-kip axle loadings 

3. The pavement design life variables DLIFE and RLIFE 

4. The age limited 18-kip annual axle loading rate ARHO 

5. The following pavement description variables: 

A. 'WIDTH' = Pavement lane width in feet 

B. The pavement type 'ITYPE' where 

1 = Concrete 

2 = Bituminous 

3 = ComDOslte 

The subroutine YEAR is designed to interface with a pavement systems 
program which can transfer information controlling pavement resurfacing. 
The options from the calling pavement systems program would be a PSI value 
or the accumulated 18-kip axle loadings. If a pavement systems program 



104 



identifies resurfacing requirements, it must be accomplished through 
the transfer of a PSI value equal to a terminal PSI value which is 
input by the user if the default assumption is not acceptable. 

The transfer of accumulated 18-kip axles would negate the need to 
determine this value in the routine. If the accumulated 18-kip axle 
loading is not transferred, the program computes and accumulates the 
18-kip axles using the following model; 
VOLUME — Annual ADT 
TRUCKS -- Percent Commercial 
AAXLES -- Accumulated 18-kip axle loadings in millions 

(composite truck axle loading in 18-kip equivalents) 
.735 -- Composite 18-kip axles for each commercial vehicle 
ARHO -- Annual rate of 18-kip axle loadings needed to 

reach 1.5 PSI in 20 years based on AASHO equations 
AAXLES = AAXLES + (VOLUME/2) x (TRUCKS)/100 x 365 x .735 
The accumulated 18-kip axles AAXLES are compared with (ARHO x AGE). 
If the AAXLES axles exceeds the AASHO rate, the pavement age is increased 
to satisfy the expression AAXLES = ARHO x AGE. 

If the PSI is not transferred from a pavement system program it is 
computed as follows : 

PSI. = Initial pavement present serviceability index 
PLIFE = Pavement design life 
AGE = Index age equivalent 
PSI = Present Serviceability Index 
PSI = PSI. -, (((PSI. - 1.5)/DLIF£) X AGE) 

105 



Once the PSI has been established, the age is re-established for use 
in the workload models as follows: 

AGE = 20 *(PSI. - PSI)/(PSI. - 1.5) 
The PSI value established for the year is compared with the ter- 
minal PSI value and if less or equal to it, the maintenance level in- 
dicator for the resurfacing activity is set equal to 1 which causes a 
resurfacing workload to be computed. A resurfaced portland cement con- 
crete pavement is converted .to a composite pavement type following the 
resurfacing. 

A unique set of workload models exist for each pavement type in the 
routine. A workload is computed for each activity that does not have a 
maintenance level of zero. The following models are used for the in- 
dicated pavement types and activities: 
A = Equivalent pavement age 
F = Workload Factor input 
L = Lane Width in feet through OVER 
ML = Maintenance Level 
W. = Workload by activity number 
S = Workload Spacing in feet 
Y = Pavement age in years 
Portland Cement Concrete Pavement 
Full Depth Concrete Patching: 

W, = F X 34 X (l/l.i(A-10)/l-25)) 



106 



Partial Depth Concrete Patching: 
Wp = F X W^ where VI- < I 
Wp = F X 1 where W^ ^ 1 

Blowups: 

W^ = .005 X (A-4) X F where A ^ 5 or A ^ 25 

W^ = where A ^ 5 or A ^ 25 
Joint Seal ing: 

W^ = F X (5280 X L X ML)/S 
Mudjacking: 

W^ = .25(.5y)V-^^ 
Other: 

W^ = Constant workload supplied by the program user in tne 
array OVER 
Resurfacing: 

W-, = 586.67 X L X F 

Bituminous Concrete Pavement 

Bituminous Concrete Patching: 

Wi= Fx 1100/(1 + e-('^-10)/l-lS') 
Crack Sealing: 

W^ = F X 1100/(1 + e-"^-10)/l-lS') 



1C7 



Base and Surface Repair: 

W = Fx5/(l+e-^A-10)/l-l^)) 



3 
Other: 

W._g = Constant workload supplied by the program user in 
the array OVER 
Overlay: 

W7 = 586.67 X L X F 
Composite Pavement 
Patching: 

Wj = F X 110/(1 + e-"^-l°'/l-l«)) 
Blowup: 

W^ = .005 X (A-4) X F where A ^ 5 or A < 25 

W^ = where A ^ 5 or A ^ 25 
Crack Sealing: 

W^ = F X 1000/Cl + e-(*-10'/l-16') 
Mud jacking: 



W5 = .25(.5y)V-^^ 
Other: 

W W 
Over! ay : 

W7 = 586.67 X L X F 
Any time the pavement is resurfaced, the resurfaced age is held to 
later adjust pavement age to reflect the resurfaced pavement. 



108 



General Flow for Routine AWORKL in Program 'EAROMAR' 



AWORKL 



Establish or get 
18-kip axles and psi 



Establish pavement age 
for analysis 



Determine if pavement 
will be resurfaced 
in year 







109 



AWORKL cont'd. 





Do for bituminous 

pavement activity 

lA = 1,7 




So to lA^ 




Do for composite 
pavement activity 
lA = 1,7 




( YEAR W- 



^ Blowup 



Full Depth Patch 



Partial DeotK PatcK 



Joint Seal 



Mudjack 



Other 



^ Base and Subbase 



Patching 



Sealing 



Other 



Other 



Other 



1 



Patching 



Other 



Blowup 



Joint Seal 



Mudjack 



Other 



Resurface 



110 



n 
i 



SUBROUTINE YEAR 
ROUTINE: PRINT 

Purpose 

This routine uses the directional cost array, COSTS, to compute 
the total cost for each activity by closure type, the total cost of 
all activities for each closure type, the total costs for the year, 
and the minimum yearly cost for each cost item. In addition, this 
routine discounts the minimum cost and accumulates the minimum cost 
for the analysis period. This routine also prints cost summaries at 
any of the following four levels: 

1. Direction 

2. Year 

3. Yearly minimum cost 

4. Minimum cost for analysis 

Description 

This routine sums the maintenance and rehabilitation, operating, 
accident, and time costs in the array COSTS to create the total costs 
for each activity and closure type. While creating these total costs 
the program selects the closure type for each activity which has the 
minimum total cost. The minimum costs for each cost item are accumu- 
lated in the array TOTALY. Also, the total costs of all activities 
for each closure type and direction are accumulated in the array ITOTAL, 

If IPRINT has been overridden with a value of 1 in routine OVER, 
then the directional cost array is printed before the two directions 



111 



of the arrays COSTS and ITOTAL are combined to create costs for the 
year. If IPRINT has been overridden with a value of one or two then 
the costs for the year are printed. 

After printing of the costs for the year is completed or bypassed, 
the minimum costs for each cost item is printed if IPRINT has a value 
less than four. 

The minimum costs of accidents maintenance and rehabilitation, 
operation, lost time and total costs are discounted to present worth 
using the following equation: 

DC = Discounted cost in dollars 

MC = Minimum cost in dollars 

I = Annual interest rate 

Y = Analysis year number 

DC = MC/(1+I)^ 
These discounted costs and the V'lilues of the non-cost items, days of 
pollution, hours of time lost, and number of accidents are accumulated 
for the analysis in the array TOTALA. If IPRINT has a value less than 
four, both the discounted costs for the year and the accumulated dis- 
counted cost are printed for each analysis year. . ' 

If IPRINT has a value greater than or equal to four, all printing 
in this routine is suppressed and the discounted cost for the entire 
analysis is printed at the end of the analysis. 



112 



General Flow for Routine PRINT in Program 'EAROMAR 



PRINT 



¥ 



Zero totals of each cost 
item for each closure 
and direction 



I 



Do for each direction and 
activity J=l to 14 



I = 1 



Do for each lane 
closure IC=1 to lanes + 1 



Accumulate costs 
for activity 



I 



Accumulate costs for 
each cost item 




Accumulate minimum 
costs for year 




h-KD 



113 



PRINT cont'd. 



> 




ID 



Do for each 
direction ID=1,2 



I 



Write direction header 



I 



Write direction 
cost summary 




Write year header 



I 



Total costs for 
both directions 



I 



Write year cost summary 



4) 



114 



I 



PRINT cont'd, 




Discount min. 
costs for year 




Write discounted cost 
for year and accumulated 
cost thru year 



4 



YEAR 



I 



Write minimum 
costs for analysis 



115 



SUBROUTINE MAIi^T 

Purpose 

This subroutine, through a simulation process, establishes the 
annual costs for each activity for each lane closure category. 
Also, the subroutine creates a matrix of the hours of roadway occu- 
pancy by hour by activity by lane closure to be used in the subroutine 
MOTOR where user impacts are established. 
Description 

The execution of this subroutine requires the following elements 
which are generated in routines RANDOM and AWORKL which reside in the 
subroutines INITAL and YEARS: 

1. The annual accumulated workload for each activity 

2. Simulation arrays for full and partial depth patches and 
random roadway locations 

3. Performance standard data for eacn activity 

4. The maintenance level for each activity 

5. The simulation parameters for each activity 

6. The permitted hours of roadway occupancy by activity 

The subroutine MAINT is called each year by the subroutine YEAR. 
The maintenance level for each of the seven possible activities is ex- 
amined to determine if the activity will be performed during the year. 
The maintenance level can fall into three categories: 
1. If the maintenance level is zero, the maintenance activity is 
not applicable and therefore the subroutine iterates to the 
next activity. 

116 



2. If the maintenance level is greater than one, the activity 
will be performed. The maintenance level is truncated and 
the resulting integer establishes the frequency of the acti- 
vity during the year. For example, if the maintenance level 
were 2.1, then the truncated integer becomes 2 indicating 
that the activity will be performed twice during the year. 

3. If the maintenance level is greater than zero but less than 
one, a holding array for maintenance level must be examined. 
If the accumulated maintenance level in the holding array 
exceeds one, then the maintenance level for the year is set 
equal to one and the holding array is reset to zero. For 
example, the value .4 may be assigned to the maintenance 
level. During the first two years the holding array reaches 
.8. In the third year, the holding array becomes 1.2 which 
exceeds one, therefore the activity will be performed in the 
third year, and tne array reset to zero (0). Also, it should 
be noted that all work accumulated during three years will be 
performed in the third year. The accumulated workload for an 
acti-vity is divided by the integer maintenance level to 
establish the magnitude of work which will be present on the 
roadway when it is occupied by the maintenance forces during 
the year. 

A number of factors must be established prior to simulating the 
occupancy of the roadway by maintenance forces. These are all based 



117 



on values established in the subroutine INITAL. Included for each 
activity are: 

1. The simulation parameters 

2. Crew travel time 

3. Traffic control time 

4. Work time 

5. Maximum crew work hours 

6. Maximum work zone length 

The simulation parameters establish the number of simulation 
iterations, and the nature of the work site for the activity. The 
maximum number of iterations which can be specified for an activity 
is 1000. This establishes the reliability of the simulation process 
when random parameters are used. The nature of the work site is de- 
fined in three parts, which are modeled as A, B and C as follows: 
work = (A.)(B)+C 
The variable A. is 

A, - Full Deptn concrete patch or fullsize bituminous patch 
as established by the density function in subroutine 
RANDOM. 
Ap - A Partial Depth size concrete patch as established by 

the density function in the subroutine RANDOM. 
Ao - The number of lanes closed to traffic. 
The variable B is a user supplied factor to be applied to the 
value of A. The variable B can be zero, and would eliminate A. 



118 



The Variable C is a user supplied constant which is additive to 
the worksite model . 

Finally, the spacing of the work sites can fall into two cate- 
gories which are: 

1. Randomly spaced 

2. Uniformly spaced 

The random spacing is based on the spacing array call RLOC generated 
in subroutine RANDOM. The uniform spacing used is defined in variable 
OVER, which either designates joint spacing or distance between work 
sites. 

As an example of the simulation parameters, the default assump- 
tions built into the program for mudjacking are as follows: 

1. The simulation iterations are 100 

2. The worksite description is 
W = A2 X 3 + 10 

3. The spacing is random 

This means that the simulation process will cause 100 mudjacking sites 
to be occupied by a mudjacking crew. At each site, the cubic feet of 
mudjacking will be W. If the size of the partial depth concrete patch 
was 20 S.F. then the workload of mudjacking becomes (20x3+10=70) cubic 
feet. Finally, the spacing is random, so the relative location of the 
next site will be based on the concentration of the mudjacking workload 
The concentration value is computed as follows where 

SW - Simulation workload per lane mile 

W - Annual workload per lane mile 

119 



NA - Maintenance frequency based on level of maintenance 

LC - Lanes closed for maintenance 

C = Concentration Value = SW/( (WxLC)/NA) 

The concentration value actually reflects the mileage over which the 
simulation process will occur. For example, given the following values 

SW = 1000 SY/lane mile 

W = 10 SY/lane mile 

LC = 2 lanes 

NA = 1 time per year 

C . 1000 SY/lane mile lOOO j,^ 
10 SY/lane mile x 2 lanes "20 ~ ^° 

The total mileage over which the simulation of work will occur becomes 
50 miles. 

There will be 100 random locations between and 1 in the array 
RLOC which are ordered from to 1. At each iteration the product of 
RLOC and C produces a random roadway mileage location where the work 
occurs. 

The crew travel time is the allowance made for moving from a 
maintenance housing facility to the roadway and then returning to the 
facility at the end of a work day. This is crew time not available 
for performing productive work on the roadway. 



120 



Traffic Control Time is the time required to establish work site 
protection and again is not available for performing productive work. 

Cure time may not be applicable to all activities, but is treated 
as time which must be allowed at the end of the productive period of 
a crew for material to gain the strength it will need before roadway 
can be open to traffic. 

The option is open to the user to specify that crews can work 
24 hours. This means that the roadway will remain closed continuously 
until all work is completed. Additionally, all 24 hours are classified 
as productive, meaning no time is deducted for travel, traffic control 
or cure. Otherwise, crew work time is specified and travel time sub- 
tracted to get net crew work time available. 

The maximum work zone length establishes how frequently a new 
traffic control zone must be established. Allowance is made for moving 
to and installing a new traffic control zone once the assignments of 
worksites falls beyond the maximum zone length. 

The process of simulating the maintenance work for a given activity 
involves the following steps: 

1. The first lane closure configuration is selected and the 
routine AVAIL called to establish the first available occupancy 
hour and the length of time the maintenance occupancy is allowed, 

2. The available time is compared with net crew time and the 
lesser of the two used to establish the maximum occupancy 
period. 



121 



3. The location of the first work site is established in 
mileage stationing. 

4. The time required to complete the production work at the 
first site is determined. 

5. The total time required to complete the work at the first 
site is determined and compared with the available occu- 
pancy period. If the available occupancy is exceeded, 
work is terminated for the occupancy. Regardless of the 
time required at the first site, the work is allowed to 
be done. 

6. The location of the next work site is established and a 
determination made as to whether it falls within the 
allowed maximum traffic control zone. If within the zone, 
allowance is made for moving to the work site and per- 
forming the production work. If work falls outside of 
the zone, allowance is made for moving to a new zone, in- 
stalling traffic control and performing the productive 
work. Either way, time is accumulated and tested against 
total available occupancy time. The length of each traffic 
zone, together with a count on the traffic zone is main- 
tained so that an average zone length can be established 
for each closure configuration. If the available time is 
exceeded, then the work is terminated at the completion of 
work at the previous site. If the available time is not 
exceeded, a new work site is iterated. 

122 



7. Following the termination of each occupancy period, the 
following information is accumulated: 

a. One hour of occupancy is added to each appropriate 
hour of a 24-hour occupancy array. 

b. The total crew hours including travel time is 
accumulated. 

8. The iteration process continues until the simulation process 
is complete. 

Following the simulation for each activity and lane closure, the 
accumulated crew hours and occupancy hours are factored to reflect 
the crew hours and occupancy hours to be associated with doing the 
annual work load. This requires that the ratio of annual workload 
for the simulation workload be determined and multiplied times the 
project length. This is done as follows: 
Given SW = Simulation Workload 

W = Annual workload per lane mile 
P = Project length in lane miles 
R = Ratio factor to be applied to crew hours and 
occupancy hours 
R = (W X P)/S 
For the determination of the maintenance cost to be associated with 
a given activity and lane closure, the program branches to the appro- 
priate freeway type (4-, 6-, or 8-lane) and the crew hours for each 
closure sequence is expanded to dollars using the performance standard 
data. 

123 



General Flow for Subroutine MAINT in Program 'EAROMAR 




Yes 






Establish workload for 
maintenance level 



Determine available 
crew time for 
roadway work 



I 



Do for all lane 
closures 
IC = 1, LANES 



Determine concentration 
of work on roadway 



124 



MAINT cont'd. 





> 





IW = IW+1 



Accumulate occupancy 
time required to complete 
work at first work site 





IW = IW+1 




125 



MAINT cont'd. 







Determine time required 

to complete work 

at next work site 

location 



G>- 



Accumulate total 
crew hours 




126 



I 



MAINT cont'd. 




Add roadway occupancy 
ttme to Array "HRS"for 
each hour of occupancy 




Accumulate traffic zone 
data 




I 



Compute average 

workzone length 

for closure 



Adjust occupancy 

hours and crew hours 

to reflect actual 

workload 




I 



Compute maintenance 

activity costs for 

each lane closure 

category 



RETURN 



127 



SUBROUTINE MAINT 
ROUTINE: AVAIL 

Purpose 

This routine is used by the subroutine MAINT to establish the 
first hour and length of each occupancy interval. 

Description 

The routine examines the JHOUR array, which shows the hours the 
road can be occupied for each activity. For the first occupancy 
interval of a simulation, the start hour follows the first unavailable 
hour found in the matrix beginning from hour one. The routine then 
determines the duration of continuous occupancy available. These 
values are used in MAINT to simulate roadway occupancy by work crews. 
When the available occupancy is used by the simulation process, AVAIL 
is again accessed to develop a new start time and occupancy interval. 
The last available hour is carried forward for each iteration, so 
that a number of occupancy intervals within a 24-hour period are 
possible. 



128 



General Flow for Routine AVAIL in Program 'EAROMAR' 




Determine first 
unavailable hour 



Determine first 
available occupancy hour 




Assign 6AM as 
first unavailable hour 



Determine hours road can 
be continously occupied 




129 



SUBROUTIiME MOTOR 

Purpose 

This subroutine takes the manhours array developed in the sub- 
routine MAINT and for each activity and lane closure computes the 
impact on the motorist, in terms of operation, time and accident 
costs together with pollution effects. 

Description 

The execution of this subroutine requires the following elements : 

1. Array HRS which is generated in the subroutine MAINT and 
contains the number of days each hour of the day the road 
has been closed for each maintenance activity and lane 
closure. 

2. The array CAP which provides the capacity of each closure 
category. 

3. The array HVOL and DVOL which holds the hourly directional 
traffic volume on the freeway and the detour. 

4. The array DETOUR which describes the characteristics of the 
detour required when all directional lanes are closed. 

The first and last nour of an occupancy interval are established 
and the number of days that the occupancy interval lasts is deter- 
mined for use in computing the magnitude of motorist impacts. The 
program then establishes the volume, delay and average vehicle speed 
for all vehicles passing through the restricted roadway occupancy area 
or on a detour for each hour in the occupancy interval . 



130 



The volume is based on a closure category capacity which has 
been adjusted for commercial traffic. Volume in excess of capacity 
is held in a queue. The delay to the first and last vehicle in an 
hour is based on the magnitude of the queue at the start and end of 
an nour interval. These two delays are averaged and the resulting 
mean assigned as the delay to the volume passing through the re- 
stricted zone during the hours. The speed is a function of the 
volume/capacity ratio. 

The subroutine then branches to the routines OPERAT, TIME, 
ACCIDT and POLUTE and computes data for each lane closure. These 
data are appropriately combined for the closure categories which 
are feasible for the freeway type being considered. This produces 
the following output arrays by activity and closure category; 

1. Vehicle operation costs 

2. Accident costs 

3. Accidents 

4. Value of time loss 

5. Manhours loss 

6. Increased days of pollution 



131 



General Flow for Subroutine, MOTOR in Program 'EAROMAR' 



MOTOR 




No 



> 




Do for each activity 
lA = 1,7 



Do for each lane 

closure 

IC = 1, Lanes 



Determine start 
finish and days of 
occupancy interval 



Do for each occupancy 

hour 

IH = start, finish 



i) 





132 



MOTOR cont'd. 






Establish volume to be 
handled during hour 



Add excess volume to 
accumulated queue 



I 



Determine a delay for 
the queue 



Compute speeds for 
restriction 





Add one hour to 
occupancy period 



133 



MOTOR cont'd, 



4 Lane 




Compute motorist 

impacts all lanes 

closed-detour or 

use shoulder 



Compute motorist 
impacts one lane 
closed at a time 



Compute motorist 

impacts all lanes 

closed and cross-over 



I 




Compute motorist 

impacts all lanes 

closed-detour or 

use shoulder 



Compute motorist 
impacts one lane 
closed at a time 



Compute motorist 

impacts two then 

one lane closed 



Compute motorist 

impacts all lanes 

closed and cross-over 



Lane 



I 



RETURN 



Compute motorist 

impacts all Unas 

closed-detour or 

use shoulder 



Compute motorist 
impacts one lane 
closed at a time 



Compute motorist 
impacts two lanes 
closed at a time 



CcTipute motorist 

impacts three then 

one lane closed 



Compute motorist 

impacts all lanes 

closed and cross-over 



J 



134 



SUBROUTINE MOTOR 
ROUTINE: VOCOST 

Purpose 

This routine takes volume, speed and delay data developed in 
the subroutine MOTOR and determines the change in vehicle operation 
costs between normal operations and operations during each lane 
closure. 

Description 

The execution of this routine requires the following elements: 

1. The normal hourly volume and average speed of directional 
traffic on the freeway and on the detour route which is 
created in subroutine YEAR 

2. The first and last hour of the occupancy interval as esta- 
blished in subroutine MOTOR 

3. The hourly volume and average speed of the directional 
traffic in the influence zone or as diverted to the detour 
as established in MOTOR 

A. The array OCOSTS which contains passenger car and 
commercial vehicle operation costs for 65 speeds as 
created in subroutine OPPARA 

4. The unit cost of fuel, oil, tires and maintenance established 
in subroutine INITAL 

5. The length of the influence zone as determined in MAINT and 
the detour length and composite signals 



135 



Four categories of vehicle operation costs are determined by the 
routine for each hour of the occupancy interval. These are: 

1. The normal operating costs on the freeway and on the detour 
route if applicable 

2. The vehicle operating costs during each lane closure 

3. The cost of the speed changes created by the land closure 

4. The cost of vehicle operation during any delay caused by 
queuing resulting from a lane closure 

The first two cost categories are developed as follows: 

Where 

S = Normal Speed 
n ^ 

S = Lane closure speed 

V = Normal volume 

V = Lane closure volume 
r 

0. = Operation cost for speed i 

Z = Average length of lane closure 

NC = Normal operation cost 

CC = Operation cost during closure 

NC = X V X Z/S 
^n 

CC = X V X Z/S 
s^ r ^ r 

When all lanes are closed, one option is to detour traffic. The second 

option is to allow for a roadway crossover. When the detour option is 

used the following additional information is needed for the above two 

categories: 



136 



Sj = Speed in detour 

V . = Normal volume on the detour 
d 

D = Length of detour 

DC = Normal operation cost on detour 

DC = X V , X D/S . 
^d ^ ^ 

The normal operation cost for the detour situation includes both NC 
and DC or 

NC = NC + DC 
The lane closure costs when detour is used requires that the combined 
freeway and normal detour volumes be combined, therefore CC will be 
computed as follows: 

Where 

S = Speed of combined volume on detour 

V = Combined volume on detour 
c 

CC = X V X D/S 
s c ' c 
c 

The costs of the speed changes is determined using a series of vehicle 
operation consumption parameter equations. These consist of the following 
Where 

A = Intercept Value 

B = Coefficient or variable 

C = Coefficient or variable 

W = Vehicle Weight 

RW = Vehicle weight factor 

CP = Consumption parameter 

S = Normal speed 



137 



SC = Speed change 

U = Unit cost 

CSTSC ( ) = Cost of speed change 

Excess Fuel Consumption Cost 

A = -8 + .0035 X S 

B = .91 + .00135 X S 
^p ^ g(A + BlnSC) 

RW = W^-^/5.277 
CSTSC (Fuel) = RW x CP x U 
Excess Tire Wear Cost 

u (-4.7 + .0417 X S) 

B = e 

CP = -A + Bin SC 

RW = -.64 + .16 X W 

CSTSC(Tires) = RW x CP x U 

Excess Oil Consumption Cost 

A = -20.5 + .09 x S 

B = 1.8 

^p ^ g(A + Bin SC) 

CSTSC(Oil) = RW X CP X U 
Excess Vehicle Maintenance 

A . = 2.56 + 1.311nS 
B = 1.3 + .0068 X S 



138 



n 



CP = (e^-A+B X LnS))/^QQQ 



A = -.298 + .00605 x S 
r 



B 
r 


^ 


.3642 = 


.00173 X 


S 


C 


= 


.00506 - 


■ .000025 


X S 


RW 


= 


A + B 
r r 


X W - C X W^ 



CSTSC(Maint) = RW x CP x U 
The speed change cost parameters are determined independently for 
passenger cars and the composite commercial vehicles. They are then 
totaled to produce a single speed change cost (CS) as follows: 
CS = CSTSC(Fuel) + CSTSC(Tires) + CSTSC(Oil) + 
CSTSC(Maint) 
The speed change used in the computation of speed change costs is com- 
puted as follows for different conditions: 

1. Reduction from normal speed to lane closure speed with no 

queue created 

SC = (S - S ) X 1.5 where SC ^ S 
n r n 

2. Reduction from normal speed to lane closure speed when queue 

is created 

SC = S 
n 

3. Reduction from detour speed to stop for a signal 

SC = S , (normal detour speed) 

SC = S (lane closure detour speed) 



139 



General Flow for Routine VOCOST in Program 'EAROMAR' 



VOCOST 



Do for each 
occupancy hour 
IH = Start. Finish 




O- 



Compute freeway 

normal hourly 

operation cost 

through influence 

zone 



Determine hourly 
operation cost of 
volume handled 
during hour 




fe — ^ 


Compute normal 
hourly operation 
cost on detour 


tf 







140 



VOCOST cont'd, 




Determine normal 
signal speed change 
cost on detour 




No 



Determine speed 
change cost for 
volume handled 



Determine signal 
speed change cost 
for volume handled 



Determine operation 
costs to queued 
vehicle 



I TIME ] 



Determine the difference 

between normal and 

closure cost 



Accumulate operation 
cost difference 



141 



SUBROUTINE MOTOR 
ROUTINE: TIME 

Purpose 

This routine computes the total amount of time lost and the 
dollar value of the lost time. 

Description 

The execution of this routine requires the following arrays and 
variables which are generated in the indicated subroutines: 

1. The array PCTADT, generated in subroutine INITAL, which pro- 
vides hourly distributions of traffic by trip purpose 

2. The array VTRATE, generated in subroutine OPPARA, which pro- 
vides passenger car hourly values of time by trip purpose 
and minutes lost 

3. The array DETOUR, defined in subroutine INITAL, which holds 
the detour route parameters 

4. The variable COMVOT, defined in subroutine INITAL, which is 
the commercial vehicle hourly value of time 

5. The arrays hVOL and DVOL , created in subroutine YEAR, whicn 
hold the hourly volumes under normal conditions on the free- 
way and detour, respectively 

6. The arrays SPEEDN and SPEED, created in subroutine YEAR, which 
hold the normal speeds for the freeway and detour, respectively 

7. The array ZONEL, created in subroutine MAINT, which holds the 
average zone length in miles 



142 



8. The array AVOL , computed in subroutine MOTOR, which holds 
the hourly volume passing through the influence zone 

9. The array DELAY, computed in subroutine MOTOR, which holds 
the average delay for the volume AVOL 

10. The variables IBEGIN and lEND, generated in subroutine 
MOTOR, which are the first and last hour of occupancy, 
respectively 

11. The variable DAYS, generated in subroutine MOTOR, which is 
the number of days the roadway is occupied 

This routine is executed hourly for each lane closure by activity. 

It is assumed that traffic is detoured only when all lanes are closed 

and no shoulders are open. 

When traffic is not detoured the time loss of each motorist is 

computed using the following equation: 

Where 

TL = the time lost in hours 

ZN = the average zone length in miles 

DZ = the deacceleration and acceleration zone (assumed 2 miles) 

S = the normal speed on freeway 

X = speed change 

DELAY = the average delay to a motorist 

TL = ZN - ZN/S + DZ/(S - SC/2) + DELAY 
r n ^ n ' 

Once the time loss has been established, a composite hourly value 
for that time loss is computed, using the following equation: 



143 



Where 

VT = the composite hourly value of time in dollars per 

hour per vehicle 
CVT = commercial vehicle value of time in dollars per 

hour per vehicle 
MTL = minutes of time lost 
n = trip purpose 
PCT(n) = the percentage of total traffic obtained from PCTADT 

for each trip purpose 
PVT(n) = the passenger car value of time obtained from the 
array VTRATE 
VT = CVT X PCT(6) + PVT(1,MTL) x PCT(l) + ... + 
PVT(5,MTL) X PCT(5) 
The composite hourly value of time is multiplied by the time loss to 
oDtain the value of time per vehicle. 

Both the value of time per vehicle and the time loss per vehicle 
are multiplied by the volume passing through the zone to give the 
total time lost and the value of time lost. 

If the traffic is detoured, the time lost by freeway motorist and 
detour motorist is computed separately using the following equations: 
Where 

TL^ = The time lost by a freeway motorist 
TL , = The time lost by a detour motorist 
Dp = The length of the detour 



144 



D, = The distance between interchanges on the freeway in miles 
S , = The normal speed on the detour 



and 



TL^ = D2/S^ - D^/S^ + DELAY 



TL^ = D2/S^ - D^/S^ + DELAY 



The composite values of time are computed as to lane for both the detour 
and freeway motorists. These composite values are multiplied by the 
appropriate time losses to obtain the values of time per vehicle. 

The time losses and values of time for the freeway and detour 
traffic are appropriately modified and combined to produce a composite 
time loss and value of time for the detour. The composite time loss 
and value of time are expanded to totals by multiplying by AVOL. 

If any traffic remains in the queue at the end of the day, the 
time loss associated with these vehicles is evaluated using the 
following equation. 

Where 

Q = The volume in the queue 
CAP = The capacity of the freeway 
TL = Q/CAP/2 
TL is valued and expanded to totals as above. 



145 



TIME 




>^ 



(!>- 



Intialize factor for 
detour volume to 



I 



Do for each hour 
IH=IBEGIN to lEND 



I 



Weight commercial vehicle 
value of time by percentage 
of commercial vehicles 




Compute time lost by 
a freeway motorist 



I 



Compute time lost by a 
detour route motorist 



146 



TIME cont'd. 





Compute percentage of 

total traffic which ts 

freeway traffic 



I 



Compute the composite 
value of time lost for 
detour route motorists 
in dollars/hr. /vehicle 



Compute the composite 
value of time lost for 
freeway motorists in 
dollars/hr. /vehicle 



I 



Compute value of the 
amount of time lost 
in dollars/vehicle 



I 



Expand amount of time 
lost to reflect 
volume and days 



I 



Expand value of time 
lost to reflect 
volume and day 



Compute time lost by 
a freeway motorist 



1 



Set percentage of total 

traffic which is 

freeway equal to 1 



Waccidt j 



147 



SUBROUTINE MOTOR 
ROUTINE: ACCIDT 

Purpose 

This routine computes the increased number and cost of accidents. 

Description 

The annual accidents for a section of roadway are computed using 

the following model: 

Where 

A = the annual accidents 

a,b & c are constants dependent on directional lanes and 

access control shown in Table 12. 

SL = section length in miles 

V = volume 
. ^ ^ g(a+bLnSL+cLnV) 

The normal annual accidents on the freeway, the annual accidents in 
the influence zone and the normal annual accidents of the detour route 
are computed using this model. The normal accidents are subtracted from 
the influence zone accidents to obtain the accident increase. This 
accident increase is factored by the ratio of the -traffic affected to 
the annual traffic. 

In addition to the increased accidents in the influence zone, the 
accidents caused by deceleration coming into the zone are computed. 
These accidents are computed using the following equation: 

Where 

A = The number of accidents 

148 



CO 






CTl 



ID 



o 



13 
O 
+-> 

Q 



CM 



to 




■!-> 




.C 


E 


(U 


cu 


■o 


Q. 


•r- 


O 


O 




o 


to 


ro 


O) 


t-H 


sz 


f • 


(0 


« r^ 


_l 


= •!*• 




c 


1 


C 4-> 


n3 


fO S- 


E 


O 


o 


0) Q. 




C <U 


4J 


o cc: 


O 


N 


O) 


D_ 


i- 


o) q: 


.,— 


u 3: 


Q 


c o 




<u 2: 




15 




.— E 




M- O 




E i- 




•.- ti- 




lt- C 




O O) 




.i<i: 


I 


to fO 




-M +J 




c 




fC CO 




4-> C 




to O 




C •!- 




O -M 




O fO 




3 




C7- 




• O) 




CM 





oo 



oo 



I 






I 



I — I 



to 



to 
o 



en 
tn 



oo 



CO 

to 



00 



c\j 



O) 



03 



to 



I 



tn 



tn 






tn 
en 



to 



CO 

o 



cr> 

CO 



I 



tn 
o 



to 



E 
03 
-M 
V) 

E 
O 

o 



ra 



o 



+-> 

E 
O) 

E 



C7> 



Ifl 




OJ 




Q 




O 




+-> 




-a 




O) 




4-> 




(Q 




r— 




O) 




QC 




to 




fO 




to 




O) 


. 


+-> 


^-^ 


03 


CO 


q; 


to 




CTl 


+-> 


1 — 1 


E 


^ ■ 


O) 




-a 


t— 1 


•I— 


o 


u 


I— 1 


o 




<: 


. 


r 


Cl. 




O- 


»^ 




• 


r. 


•-D 


r^ 




■^ 


• 




i^ 


+-> 




s_ 


•> 


o 


Q. 


CL 


S- 


O) 


o 


cc 


sz 




1— Q- 




dL 


-a 


-XL 


E 


O 


fO 


s: 


, 


«^ 


^ 


: 




00 


o 


>. 


J^ 


fO 


-^ 


2 


CO 


-E 


fO 


CD 


-"D 


1— 




ni 


rk 




COi 


— 


i- 


fO 


QJ 


s_ 


^ 


13 




■^ 


JZ 




OJ 


+- 


i:«:i 


o 



149 



DEC = The deceleration rate in miles per hour per hour 

V = The Volume 

SCZ = Speed change zone length in miles 

A = (-1.32 + .002 X DEC) x V x SCZ 
The accidents of both freeway motorists and detour motorists are 
computed using this model. These accidents are added to the increased 
accidents in the influence zone. 

After the increased accidents have been accumulated for all lane 
closures the increased accident cost is computed by multiplying by the 
average cost of an accident. 



150 



General Flow for Routine ACCIDT in Program 'EAROMAR' 



Initial tze detour 
accidents to zero 



I 



Intttalize 
section length 




No 4" 

5_ 



Compute normal 
accidents on freeway 




Yes 



No 



ACCIDT 



Change 
section length 



Compute 
closure accidents 



I 



Compute normal 
accidents on detour 




151 



ACCIDT cont'd. 








Compute 
tncreased accidents 



Do for each 
hour of closure 



Compute 
increased accidents 



Compute freeway 
deceleration rate 



Compute speed 
change accidents rate 



Convert accident rate 
to accidents detour 




152 



ACCIDT cont'd. 





Yes 



No 



Total 
all accidents 



I 



Convert 
accidents to cost 




Compute detour 
deceleration rate 



I 



Compute speed 
change accident rate 



Convert accident 
rate to accidents 



153 



SUBROUTINE MOTOR 
ROUTINE: POLUTE 

Purpose 

This routine takes the speed, delay and volume data developed for 
each hour and computes a pollution impact due to roadway occupancy. 

Description 

The following two models are combined to produce a combined HC,CO 
pollution factor as a function of speed: 
S = Speed mph 
P = Pollution factor 
p = 89e^^-^^^ ■ '^^^^^ 

CO 

P = lle^-^^^ " '^^^^^ 
he 

P = P + Pu 

CO he 
In each analysis hour a speed can be associated with normal operation 
on the freeway and detour; restricted operation on the freeway or de- 
tour due to traffic control, and with operations in a queue. The 
pollution rate for each condition is expressed by the following factors: 

P = Normal freeway factor 

P = Restricted operation factor 

P„ = Normal detour operation factor 

Pq = Queue operation factor 
The measure of the pollution increase due to traffic control is 
defined as days of additional pollution. This is based on the total 



154 



pollution created by normal traffic operating on the project for one 

day. In each hour, the increased pollution is determined as follows: 

V = Volume of traffic handled during hour 

Z = Length of influence zone in miles 

VMP = Increased vehicle miles of pollution at normal 

freeway levels 

VMP = (P /P - 1) X V X Z 
^ r V 

If the volume V has a queue time for the hour, then a similar 
computation is made to determine increased vehicle miles of pollution 
in the queue. 

When the traffic is detoured, consideration is given to the differ- 
ent pollution emission rate associated with normal operation on the 
detour. 

The increased vehicle miles of pollution are accumulated for each 
activity and closure category. The total is divided by the normal 
vehicle mile per day to produce increased days of pollution. 
DAYS = Days of increased pollution 
PROJ = Project length in miles 
ADT = Freeway average daily traffic volume 

DAYS = VMP/ (PROJ X ADT) 



155 



General Flow for Routine POLUTE in Program 'EAROMAR' 



Determine pollution 
factors as a function 
of speed 




Yes 



Compute added vehicle 
miles of pollution 
freeway - zone 



Compute added vehicle 
miles of pollution 
in queue 



Compute and accumulate 
increased days of pollution 



Determine freeway 
detour volume split 



I 



Compute added vehicle 

miles of pollution, 

freeway - detour 



I 



Compute added vehicle 
miles of pollution 
detour - detour 



I 



Compute added vehicle 
miles of pollution 
add miles on detour 



W MOTOR ) 



156 



:nput Format for Program 'EAROMAR' 



Required 



Optional 



/lO Mox. /Packet 7 




/a Max. / Packet 4 



/6 Max. /Packet 2 



7 Max. /Packet i 



Program Deck 



157 



Input cont'd, 



Optional 



Packet 18 



Packet 17 




Packet 8 



.58 



Input cont'd 



Optional 




/ Packet 23 
/ Packet 22 
/ Pocket 21 

/ Packet 20 
/ Packet 19 



159 



CARD NO. 1 — TRAFFIC 
FORMAT (6F5.2) 



COLUMNS 



INPUT VARIABLE 



DESCRIPTION 



1-5 

6-10 

11-15 

16-20 
21-25 
26-30 



VOLUME(l) 

SPLIT(l) 

TRUCKS(l) 

V0LUME(2) 

SPLIT(2) 

TRUCKS(2) 



Initial Year Volume in 1000 's 

Initial Year AM Split in percent 

Initial Year Percentage of Commercial 
Vehicles 

Final Year Volume in 1000 's 

Final Year AM Split in percent 

Final Year Percentage of Commercial 



160 



CARD NO. 2 — PAVEMENT 
FORMAT (3I2,4F5.2) 



COLUMNS 



INPUT VARIABLE 



DESCRIPTION 



1-2 



3-4 



5-6 



7-11 
12-16 
17-21 
22-26 



NYEARS 



KP 



ITYPE 



PROJLN 
THICKl 
THICK2 
THICKS 



Number of years to be included in 
analysis 

Freeway type switch 

1 = 4 lane 

2 = 6 lane 

3 = 8 lane 

Pavement switch where 

1 = Portland cement 

2 = Bituminous 

3 = Composite 

Project length in miles 
Pavement surface thickness in inches 
Pavement base thickness in inches 
Pavement subgrade thickness in inches 



161 



CARD NO. 3 — PACKET OPTION 
FORMAT (I2,A4) 



COLUMNS 



INPUT VARIABLE 



DESCRIPTION 



1-2 



IP 



3-6 



END • 



Packet Switch 

1. Hourly volume distribution by 
trip purpose 

2. Percent of total volume by 
trip purpose 

3. Directional balancing switch 

4. Permitted occupancy interval 
by activity 

5. A range of override parameters 
by activity 

6. Vertical and horizontal 
alignment 

7. Vehicle classification data 

8. Maintenance simulation parameters 

9. Unit operating costs 

10. Print switch 

11. Pavement lane width 

12. Income level 

13. Speeds for walking and traveling 
on roadway 

14. Terminal PSI value 

15. Detour parameter 

16. Design life 

17. Activity standard 

18. Capacities 

19. Freeway design speed 

20. Average accident cost 

21. Vehicle occupancy 

22. Commercial time value 

23. Speed limits 
The literal "bEND" 



162 



CARD NO. 4 — TRAFFIC DISTRIBUTION 

FORMAT (3I2,24F3.3) 

MAXIMUM NUMBER OF CARDS - 7 
VARIABLE OVERRIDE - PCTADT 

COLUMNS INPUT VARIABLE 



DESCRIPTION 



1-2 



3-4 



5-6 



IT 



ID 



LEVEL 



Trip purpose switch 



Pass. 
Pass. 
Pass. 
Pass. 
Pass. 



Car 
Car 
Car 
Car 
Car 



Commercial 
All Trips 



Work Trips 

Personal Business Trips 
Social -Recreational Trips 
School Trips 
Vacation Trips 
Vehicle Trips 



Direction Switch 

1 = AM peak direction 

2 = PM peak direction 

Volume level switch 

1 = Initial year 

2 = Final year 



7-9 
10-12 



i 



Decimal portion of 24 hourly volume for 100 percent 
of a given trip purpose 



76-78 



Z(l). 
Z(2) 



Z(24) • 



Hour 1 
Hour 2 



i 



Hour 24 



163 



CARD NO. 5 - TRIP PURPOSE DISTRIBUTION 

FORMAT (212, 6F3.3) 

MAXIMUM NUMBER OF CARDS - 6 
VARIABLE OVERRIDE - PERCNT 



COLUMNS 



INPUT VARIABLE 



DESCRIPTION 



1-2 

3-4 

5-7 

8-10 
11-13 
14-16 
17-19 
20-22 



ID 



LEVEL 



Direction Switch 

1 = AM peak direction 

2 = PM peak direction 

Volume level svn'tch 

1 = Initial year 

2 = Final year 





Decimal portion of ALL trips that are 


z(i) 


Work trips 


Z(2) 


Personal business trips 


Z(3) 


Social Recreation trips 


Z(4) 


School trips 


Z(5) 


Vacation trips 


Z(6) 


Commercial vehicle trips 



164 



CARD NO. 6 — OCCUPANCY CONSTRAINTS 
FORMAT (312) 

MAXIMUM NUMBER OF CARDS - 9 
VARIABLE OVERRIDE - INOCC 
COLUMNS INPUT VARIABLES 



DESCRIPTION 



1-2 


INOCC (N,l) • 


Activity No. 


3-4 


INOCC (N ,2) • 


First hour of occupancy 


5-6 


INOCC (N, 3) • 


Last hour of occupancy 



CARD NO. 7 — OVERRIDE ARRAY 

FORMAT (212, F7. 2) 

MAXIMUM NUMBER OF CARDS - 7 x 12 
VARIABLE OVERRIDE - OVER 

COLUMNS INPUT VARIABLE 



DESCRIPTION 



1-2 



II 



3-4 
5-11 



lA 

VALUE 



Type Switch 

1 = Continuous crew work hours 

2 = Location or joint space in feet 

3 = Workload model factor 

4 = Workload model fixed annual rate 

5 = Travel time hours (round trip) 

6 = Maintenance level 

7 = Cure time hours 

8 = Traffic control installation 

in hours 

9 = Max. workzone length in miles 

10 = Vol /Cap Ratio allowed 

11 = Min. workzone length 

12 = Shoulder open to traffic 

Activity Number 
Value of Override 



165 



CARD NO. 8 — ALIGNMENT DESCRIPTION 
FORMAT (212, F7.2) 
MAXIMUM NUMBER OF CARDS -3x6 
VARIABLE OVERRIDE - ALIGN 
COLUMNS INPUT VARIABLE 



DESCRIPTION 



1-2 



3-4 
5-11 



II 



12 
VALUE 



Alignment Switch 

1 = Positive grades 

2 = Negative grade 

3 = Horizontal Curvature 

Alignment value from 1 to 6 

Mileage associated with Switch and Value 



CARD NO. 9 — VEHICLE DESCRIPTION 

FORMAT (3F5.0) 

MAXIMUM NUMBER OF CARDS — 10 

VARIABLE OVERRIDE - WEIGHT 

COLUMNS INPUT VARIABLE 



DESCRIPTION 



1-5 

6-10 

11-15 



Z{1) 
Z(2) 
Z(3) 



Weight in Kips 

Percentage of vehicles in weight class 

Initial cost of vehicles in weight 
class 



NDTE: The first card in this group must always be the passenger car description 
if the option is exercised. 



166 



CARD NO. 10 — SIMULATION DESCRIPTION 
FORMAT (I2,5F10.2) 
MAXIMUM NO. OF CARDS -- 7 
VARIABLE OVERRIDE - SIM 



COLUMNS 



INPUT VARIABLE 



DESCRIPTION 



1-2 
3-12 



13-22 
23-32 
33-42 
43-52 



lA 
Z(l) 

Z(2) 
Z(3) 
Z(4) 
Z(5) 



Activity Number 

Worksite Switch 

1 = Full size patch 

2 = Partial size patch 

3 = Lanes closed 

Worksite size multiplier factor 
Worksite size add on constant 
Number of simulation iterations 

Worksite spacing switch 

1 = Random spacing 

2 = Uniform spacing 



CARD NO. 11 — OPERATION UNIT COSTS 

FORMAT (I2,2F4.2) 

MAXIMUM NUMBER OF CARDS -- 4 

VARIABLE OVERRIDE - FUEL , TIRES , OIL ,SINDEX 



COLUMN 



INPUT VARIABLE 



DESCRIPTION 



1-2 



3-6 
7-10 



II 



z(i) • 

Z(2) • 



Unit Switch 

1 = Fuel 

2 = Oil 

3 = Tires 

4 = Services Index 

Unit Cost of Switch item for passenger 
cars 

Unit cost of Switch item for all commercial 
vehicles (the composite commercial) 



167 



CARD NO. 12 -- PRINT SWITCH 

FORMAT (212) 

MAXIMUM NO. OF CARDS -- 1 

VARIABLE OVERRIDE - IPRINT , JPRINT 



COLUMNS 



INPUT VARIABLE 



DESCRIPTION 



1-2 



IPRINT 



3-4 



JPRINT 



CARD NO. 13 -- LANE WIDTH 
FORMAT (F5.2) 

MAXIMUM NUMBER OF CARDS — 1 
VARIABLE OVERRIDE - WIDTH 



COLUMN 



INPUT VARIABLE 



Print Switch 

1 = Direction, Years, Year Total, Total 

2 = Year, Year total. Total 

3 = Year total , total 

4 = Total 

Print Switch 

1 = Assumption, Matrices 

2 = No Print 



DESCRIPTION 



1-5 
CARD NO. 14 — INCOME 



"WIDTH 



Lane width in feet, 



FORMAT (12) 

MAXIMUM NUMBER OF CARDS — 1 

VARIABLE OVERRIDE - INC 



COLUMN 



INPUT VARIABLE 



DESCRIPTION 



1-2 



INC • 



Income level for value of time computation 



168 



CARD NO. 15 - OCCUPANCY MOVES 
FORMAT (2F5.2) 

MAXIMUM NUMBER OF CARDS -- 1 
VARIABLE OVERRIDE - WALKJCMOVE 



COLUMN 



INPUT VARIABLE 



DESCRIPTION 



1-5 



6-10 



WALK 



• TCMOVE 



Walking speed between worksites within a 
traffic control zone in mph 

Travel speed between traffic control 
zones in mph. 



CARD NO. 16 — TERMINAL PSI 
FORMAT (F5.2) 

MAXIMUM NUMBER OF CARDS — 1 
VARIABLE OVERRIDE - PSIRS 



COLUMN 



INPUT VARIABLE 



DESCRIPTION 



1-5 



• PSIRS 



CARD NO. 17 — DETOUR PARAMETERS 
FORMAT (7F5.2) 
MAXIMUM NUMBER OF CARDS - 1 
VARIABLE OVERRIDE - DETOUR 



The value of the present serviceability 
index when resurfacing should occur 



COLUMN 



INPUT VARIABLE 



DESCRIPTION 



1-4 
5-8 



DETOUR(l) • 
DET0UR(2) • 



Distance between interchanges in 
miles 

Detour length in miles 



169 



9-12 

13-16 
17-20 
21-24 



DET0UR(3) 

DET0UR(4) 
DET0UR(5) 
DET0URC6) 



25-28 DET0UR(7) 

CARD NO. 18 — DESIGN LIFE 
FORMAT (2F5.2) 
MAXIMUM NUMBER OF CARDS - 1 
VARIABLE OVERRIDE - DLIFE, RLIFE 
COLUMNS INPUT VARIABLE 



Average speed limit on detour 
with signals 

Normal detour volume ADT 1000 's 

Detour capacity in 1000 's 

Detour signal stops for all 
vehicles 

Directional lanes on detour 



1 



DESCRIPTION 



1-5 • DLIFE 

6-10 • RLIFE 

CARD NO. 19 — ACTIVITY STANDARD 

FORMAT (212, 3F7.2) 

MAXIMUM NUMBER OF CARDS -3x7 

VARIABLE OVERRIDE - PS 



Original pavement design life. 
Resurfaced pavement design life. 



COLUMNS 


INPUT VARIABLE 


DESCRIPTION 


1-2 


lA • 


Activity Number 


3-4 


11 


PAVEMENT Switch 

1 = PCC 

2 = Bituminous 

3 = Composite 


5-11 


s(i) • 


Crew Hourly Costs 


12-18 


S(2) • 


Material costs per workload unit. 


19-25 


S(3) • 


Production rate in workload units per hou 



170 



CARD NO. 20 - CAPACITIES 

FORMAT (5F5.2) 

MAXIMUM NUMBER OF CARDS - 5 

VARIABLE OVERRIDE - CAP 

COLUMNS INPUT VARIABLE 



DESCRIPTION 



1-5 


CAP(l) • 


6-10 


CAP(2) • 


11-15 


CAP(3) • 


16-20 


CAP(4) • 


21-25 


CAP(*) • 



Capacity of roadway with one lane closed. 
Capacity of roadway with two lanes closed. 
Capacity of roadway with three lanes closed, 
Capacity of roadway with four lanes closed. 
Capacity of roadway - no lanes closed 



NOTE: If all lanes are closed, capacity shall be of the detour. 
*Maximum Directional Lanes + 1 

Card no. 21 — freeway design speed 

FORMAT (F5.2) 

MAXIMUM number OF CARDS - 1 

VARIABLE OVERRIDE - DSPEED 



COLUMNS 



input variable 



DESCRIPTION 



1-5 



DSPEED' 



Freeway design speed in m.p.h 



171 



CARD NO. 22 -- AVERAGE ACCIDENT COST 
FORMAT (F5.0) 

MAXIMUM NUMBER OF CARDS - 1 
VARIABLE OVERRIDE - AACOST 



COLUMNS 



INPUT VARIABLE 



DESCRIPTION 



1-5 



AACOST 



Average cost of an accident in dollars 



CARD NO. 23 — VEHICLE OCCUPANCY 
FORMAT (2F5.2) 
MAXIMUM NUMBER OF CARDS - 1 
VARIABLE OVERRIDE - OCWORK, OCSCHL 



COLUMNS 


INPUT VARIABLE 


DESCRIPTION 


1-5 


OCWORK ' 


Occupancy per vehicle for work trif 


6-10 


OCSCHL • 


Occupancy per vehicle for school 
trips 



CARD NO. 24 — COMMERCIAL TIME VALUE 
FORMAT (F5.2) 

MAXIMUM NUMBER OF CARDS - 1 
VARIABLE OVERRIDE - COMVOT 



COLUMNS 



INPUT VARIABLE 



DESCRIPTION 



1-5 



COMVOT 



The value of time per hour assigned 
to a composite commercial vehicle 



172 



CARD NO. 25 — SPEED LIMITS 
FORMAT (5F5.2) ' 
MAXIMUM NUMBER OF CARDS - 1 
VARIABLE OVERRIDE - SLIMIT 



COLUMNS 


INPUT VARIABLE 


DESCRIPTION 


1-5 


SLIMITCD • 


Speed limit for freeway with one 
lane closed 


6-10 


SLIMITC2) • 


Speed limit for freeway with two 
lanes closed 


11-15 


SLIMITC3) • 


Speed limit for freeway with three 
lanes closed 


16-20 


SLIMIT(4) • 


Speed limit for freeway with four 
lanes closed 


21-25 


SLIMIT(*) • 


Speed limit of freeway with no 
lanes closed 



*Maximum Directional Lanes + 1 



173 



APPENDIX A 



Program Source Statements 



174 



c* 

c* 

c* 

c 

c 

c 

c 

c 

c* 

c* 

c* 






M A I N T 

4c 4c « 4: « « « i«c 4( 4c « <( "«< 4c 4c « ;«c :ic 
4c4:4c4c4c4c*« « 4:«4: 4c«4c4c «« 

JNTEGtR COSTS( 
COMMON 

1 CWT, 

2 IH0UR(24,7}, 

3 LANESf 

4 0C0STS(65,2), 

5 RLOC(IOOO), 

6 SPEEaN(24), 

7 VOLUME! 2) , 
COMMON/ASSUME/ 

1 DET0UR(7)t 

2 HW0RK(7i, 

3 IMT, 

4 0IL(2), 

5 PSIRS, 

6 SLIMITtS), 

7 WALKf 
MI = l 
MG=3 

CALL INITAL 
CALL OPPARA 
1F(JPRINT.N£.1 
CALL RPRINT 
100 CONTINUE 
CALL YEAR 
STOP 
END 



4c4c 4c4c «♦ 4c« «* 4c4c 4c4c 4c4c i(c « 

«4ci)c4c4c4c 4c4c4c*4c4c4c« 4:4i4c4c 
4c 4e « 4c 4c 4c 4c 4c 4c 4c « 4c « 4c 4c 4c 4: 4c 

ECONOMIC 

ROADWAY 

F 
ENANCE AN 

4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c4c 4c « 
4c 4: 4c 4: 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 
4c 4c 4c 4c 4: 4c 4c 4c 4c 4c 4c 4e 4c 4c 4c 4c 4c 4c 

7,5,8,2) 

ARHO, 

DV0L(24), 

ITYPE, 

MI, 

PATCHFC 1000), 

S1M(7,5), 

SPLIT(2), 

VTRAT£(5,40), 

ALIGN (3, 6), 

DLIFE, 

lOIR, 

JPRINT, 

OVERi 12,7), 

RATEI , 

TCMOVE, 

MIOTH, 



)GOTO 100 



4c 4c 4: 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 
*4c 4:« 4c 4c 4c 4c 4c 4c 4c 4c 4= 4c 4c 4c 4c 4c 4c 4c 4c 4! 4c 4c 4c 4c 4c 4c 4c 4c 4c« 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 
4c 4c 4: 4c 4c 4c 4: « 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4: 4c 4c 4: 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4: 4c 4c 4c 4c 4c 

ANALYSIS 
F 

OCCUPANCY 
R 
D RECONSTRUCTION 

4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4^^ 4c 4c 4c 4c «4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 
4c 4: 4c 4c 4c 4c 4: 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4: 4c 4c #4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4: 4c 4c 
4c 4c 4c 4c 4c 4c 4c 4c 4c 4c*4c 4c 4c *4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c**4c 4c 4c 4c 4c 4c 4c 4c 4c 4: 4c 4c 4c 4c 



CAP (5), 

HV0L(24), 

lY, 

MO, 

PATCHPJ 1000), 

SP{5,11) , 

SW0RK(7) , 

ZONEL( /,4) 

AACOST, 

FU£L(2) , 

INC, 

OCSCHL, 

PCTADT(24,7,2,2) 

RLIFE, 

TIRES(2) , 

WEIGHT( 10,3) 



COSTS, 
lU, 

KP, 

NYEARS, 

PROJLN, 

SPEE00(24), 

TRUCKS(2), 

COMVOT, 
HRS(7,24,4) , 
IPRINT, 
OCv^ORK, 
,PS(7,3,3), 
SINDtX, 
TLEVEL(7), 



175 



c 

Q* «« ***«***«**X'*«* ************************************** «**«*******«#c 

(;»***««*♦«**««***«* SLOCK DATA ****«**»«******C 

(;«««j!c«#««*«3!c******* program 'EARUMAR* ♦**«t*»**««X'***«C 

Q ;«c 4c4: :4c4: « « «4: « 4:4:=«e 'i('4c4''ic ^^♦^ « :t'3)' A«« *« «* 3tc» *4: «>ic ;4c;«(# :(c ^3ic :«(« «:tc;ic4c 4::(c jtc^c 

c 

BLOCK DATA 

CQMMQiN</ASSUME/ ALIGN(3,6), AACOST, COMVOT , 

1 D£TUUR(7), DLIFE, FUEL(2J, HRS(7,24,4), 

I HW0RK{7i, lUiR, INCr IPRINT, 

3 IWT, JPRINT, OCSCHL, OCWURK, 

4 0IL(2), 0V£R(12,7), PCTAUT(24,7,2,2)f PS(7,3,3) , 

5 PSIRSf RATEl, RLIFE, SINOEX, 

6 SL1MIT(5), TCMOVE, TIRES(2)f TL£VEL(7), 

7 WALK, WIDTH, WEIGHT(10,3) 
C 

C **«ALIGNMENT MI LEAGES , AVERAGE ACCIDENT COST .COMMERCIAL VALUE OF TIME 

DATA AL 1 GN, A ACQS T, COMVOT /lb«0. 0,850.0,6.72/ 
C 
C ***DETOUR PARAMETERS 

DATA DtTOUR/2.0, 2. 6, 45. 0,20. 0,2. 4, 0.8, 2.0/ 
C 
C =>*«L)i-3iGN LIFE, UNIT PRICE OF FUEL, OCCUPANCY HOURS 

DATA DLIFE, FUEL, HRS/20. 0,0-4, 0.3, 672*0.0/ 
C 

C ***ANNUAL WORKLOAD, DIRECTION BALANCE INDEX, AVERAGE INCOME LEVEL, 
C ***ANaLYSIS print SWITCH 

DATA HWORK,lDiR, INC, I PRINT/ 7*0. 0,0, 4, 1/ 
C 
C ***» VEHICLE CLASSES, INITIAL PRINT SWITCH, OCCUPANTS FOR SCHOOL L WORK TRIPS 

DATA IWT, JPRINT, OCSCHL, OCWORK/4, 1,2.5, l'.4/ 
C 
C ***UNIT PRICES OF OIL 

DATA OIL/0.8,0.4/ 
C 
C ***OVERRIDt PARAMETERS 

DATA OVER/9. 0,50. 0,1. 0,0. 0,0. 5, 1.0, 3.0, .25, .5, 1.0,. 10, 0.0, 
2 8. 0,50. 0,1. 0,0.0, .5, 1.0, 1.0, .25, .5, 1.0,. 10,0.0, 
38. 0,50. 0,1. 0,0.0, .5, 1.0, 1.0, .25, .5, 10.0, .10, 2.0, 
48. 0,50. 0,1. 0,0.0, .5, 0.2, 1.0, .25, 2. ,1.0,. 10, 0.0, 
5 8. 0,50. 0,1. 0,0.0, .5, 1.0, 1.0, .25,. 5, 1.0, 0.1, 0.0, 
0.0,50. 0,1. 0,0.0,.!}, 1.0, 1.0,. 25, .5, 1.0, .10, 0.0, 
7 12. 0,1 20 0., I. 0,0. 0,0-5, 0.0, 0.0, .25, 1.0, 10.0, .25, 0.0/ 
C 
C ***TRAFFIC DISTRIBUTIONS 

DATA PCTADT/. 002, -000,. 01,. Oil,. 02 6,. 074,. 2 17,. 190,. 070,. 046, 
A. 041, 
8. 043,. 05 7,. 053,. 05 0, .035 , . 023, . 017 , -014, -OOa ,. 005, .0 08 , .004, .005 , 



176 



C.037, 

D.024, 
t.OOOf 
F.068, 
&.0U9, 
H.055, 
I .004, 
J.05^i, 
K.0o6f 
L.020, 
M.004» 
N.018, 
0.016, 
P. 023, 



.014 
.025 
-00 
.OBO 
.uOti 
.057 
.173 
. 02d 
.062 
.021 
.00 5 
.021 
.024 
384* 



.005,1 
.032,1 
.000,. 
•090,. 
.015,. 
.057,. 

.010,. 

.015,2 
.013,. 

72*. 0, 
. 85 , . 
0/ 



001, 
034, 
000, 
104, 
031, 
05 5, 
104, 
000, 
060, 
4*.0 
024, 
.004 
03 9, 



.000,. 
.038,. 
.001,. 
.141,. 
.050,. 
.050,. 
.031,. 
.002,. 
.056,. 
,.019, 
.014,. 
,.002, 
.063,. 



001, 
085, 
002, 
100, 
056, 
045, 
013, 
013, 
060, 
.006 
020, 
.001 
181, 



.004,. 
.182,. 
.006,. 
.039,. 
.055,. 
.041,. 
.036,. 
.013,. 
.062,. 
,.004, 
.0 52,. 
,.000, 
.098,. 



004,. 
141,. 
028, . 
010, . 
050,. 
000,. 
019,. 
012,. 
070,. 
.002, 
288,. 
• 000, 
105,. 



005,. 
117,. 
73,. 
002,. 
051,. 
000,. 
025,. 
012,. 
074,. 
.001, 
299,. 
• 000, 
036,, 



Oil, 
099, 
071, 
045, 
050, 
000, 
010, 
017, 
063, 
.0 01 
105, 
.0 00 
039, 



.018,. 
.090,. 
.049,. 
.046,. 
.043,. 
.000,. 
.016,, 
•023,. 
.041,. 
,.003, 
.034,. 
,.000, 
.092,. 



016,. 
001,. 
062,. 
029,. 
037,. 
000,. 
065,. 
053,. 
031,. 
.OOo, 
019,. 
.006, 
108,. 



017, 

J 00, 

073, 

029, 

36, 

000, 

098, 

069, 

022f 

.013, 

029, 

.007, 

071, 



***ACTWITY STANDARDS 

DATA PS/ 48. 40, 3 1.92, 48. 98, 26. 62, 35. 91, 0.0, 0.0, 
155.83,28.98,69.42,0.0,0.0,0.0,0.0, 
255.8 3,0.0,48.98,28.9 8,35.91,0.0,0.0, 
3 6.25,0.20,86.40, .0 75 ,.70,0.0,1.2, 
4. 50, .10, 5. 07, 0.0, 0.0, 0.0, 1.2, 
5. 50, 0.0, 86. 40, .10, .70, 0.0, 1.20, 
6 11. 1,5.0,. 5, 280. 0,30. 0,0. 0,700.0, 
7ldO. 0,15 00.0,5.6,0.0,0.0,0.0,700.0, 
818 0.0,0.0,0.5,1500.0,30.0,0.0,700.0/ 

**«RESUKf ACING PSI, INTEREST RATE, RESURFAC ED LIFE, SERVICES INDEX 
DATA PSIRS,RATEI,RLlFE,SINDfcX/2.0,.08, 10.0,1.5/ 

***SPtEU LIMITS, TRAVEL SPEED BETWEEN ZONES, UNIT PRICES UF TIRES, 
***ACCUMULATE0 MAINTENANCE LEVELS 

DATA SL I MI T, TC MO VE,T IRES, TLEVEL/'fr*5 0.0,6 0.0, 20.0,0. 1,0. 2 ,7*0.0/ 

***TRAVtL SPEED WITHIN ZONE, LANE WIDTH 
DATA WALK, WiDTH/2. 0,12.0/ 

***VEHICLE PARAMETERS 

DATA Wt I GHT/4. 2, 15. 4,39. 8,53.6,6*0.0,93.1,2.9,2.2,2.8,6*0.0, 
13000.0,7300.0,24400.0,39 300.0,6*0.0/ 

END 



177 



c 

c*** 
c 



^P "^n ^P ^* •T^ TP ^h ^^ ^T'^h 

********** 
********** 
*Jic*;tc*:tc*3ic4c;«c 
********** 
********** 
********** 
********** 



SUBROUTI 
INTEGtR 
COMMON 
i CWT, 
IH0UR(2 
LANES, 
OCOSTS( 
RLUCdO 
SPEEONt 
VOLUME ( 
COMMON/A 
1 OETOURC 
HW0RK(7 
IWT, 
OIL (2), 
PSIRS, 
SLIMIK 
WALK, 
01 MENS 10 
OIMEWSiO 
OIMENSIO 



****************************** 
****************************** 

VnP V ^ " 

***** SUBROUTINE INITI 

***** 

***** PROGRAM 'EARUMAR 

***** 

****************************** 

****************************** 

****************************** 

N£ INITAL 
C0STS(7,5,8,2) 

ARHO, 



**************** 
**************** 

****** 
AL ****** 

****** 
• ****** 

****** 
**************** 
**************** 
**************** 



*********(; 
****♦****(; 
*********(; 

*********Q 

*********c 
*********c 

*********Q 

*********(; 
*********(; 
*********£ 



0V0L<24), 

ITYPE, 

MI, 

PATCHFi lOOOJ, 

SIM(7,5J, 

SPLIT(2), 

VTRATE{5,40), 

ALIGN (3, 6), 

DLIFE, 

lOlR, 

JPRINT, 

0VER(12,7), 

RATEI, 

TCMOVE, 

WIDTH, 
N CCAP(5,3J 
N INOCC(lO,3J,IbAL(7,2,2 
N RAND0M(2),PERCNT(6,2,2 



4,7J, 

65,2), 

00), 

24), 

2), 

SSUME/ 

7), 

if 



5), 



CAP (5), 

HV0L(24), 

lY, 

MO, 

PATCHPC 1000), 

SP{5, 11), 

SW0RK(7) , 

Z0NEL(7,4) 

AACOST, 

FUEL(2) , 

INC, 

OCSCHL, 

PCTAUT(24,7,2,2) 

RLIFE, 

TIRES(2), 

WEIGHT(ia,3) 

),Z(24),SSIMI7,3,5) 
) 



COSTS, 

lOf 

KP, 

NYEARS, 
PROJLN, 
SPE£0D(24) , 
TRUCKS(2) , 



COMVOT, 
HRS(7,24,4), 
IPRINT, 
OCWORK, 
,PS(7,3,3), 
SINOEX, 
TL£VEL(7), 



=**END OF DATA TEST VARIABLE 
DATA ENOVER/* END'/ 



***CAPACTIES BY EXPRESSWAY TYPE AND CLOSURE 

DATA CCAP/1.7, .8, 4. ,0.0, 0.0, 3. 8, 1.7, .8, 6,, 0.0, 5. 7, 3. 8, 1.7, .8, 8./ 

***OESIGN SPEED 

DATA OSPEED/70./ 

***TRAFFIC DISTRIBUTIONS BALANCING INDICES 
DATA IBAL/28*0/ 



***ALLOWABLE OCCUPANCY 
DATA IN0CC/30*0/ 
IN0CC(10,1)=10 
1N0CC(10,2)=7 
INOCCilO,3)=18 
IN0CC(9,1)=3 
IN0CC(9,2)=15 
INaCC(9,3)=18 



INTERVAL 



178 



c 

C ***OEFAULT VALUES FUR THE SIMULATION PROCESS FOR THREE PAVEMENT TYPES 
DATA SSIM/l.t2.f I. t3.«2.f i.»3.t l.»3.>i.»3. ,3.,3.f3.t l.t3.»L., 
i3.,2.,3.,3.tl.,l«,0.>i2.T3.f L0.tL300.t 1. »12.t.l»0. ,0. , 0. , 1300. » 
2iO.»0.fU.ti2.f3.t0.t 1300. fU. >O.»I.t0.tI0.tO.tO.»O.f0.«O.tO.tO.» 
30. ,0.tO. tO., l.f 0.>10.»0.f 0.» LOO.OtlOO.Of I.f230.0ti00.tl00.0f lO.f 
4100.0,23 0.0*100. ,!.» 1. «1. ,10.,100.0,l.,l.,230.0,100.f 1., 10.,1.,1., 
31.t2.,l. tl*r2. fi.f 1. tl.fl. tl.tl.f2.fl.tl.fl.,2.tl.tl«f2./ 

C 

C ♦♦♦TRAFFIC DISTRIBUTION BETWEEN TRIP PURPOSES 
OATA PERCNT/.33l,.ia9,.2d4,.00l, .093,.100f 
1. 3 3 1,. I 89,. ^ 84,. 001, .095,. 100, 
2. 331,. 189,. 284,. 001,. 095,. 100, 
3. 3 31,. 189,. 284,. 001,. 093,. 100/ 

1 FURMAT(I2,A4J 

2 F0RMAT<3I2,24F3.3) 

3 F0RMAT(2I2,3F7-2) 

4 F0RMAT<2I2,6F3.3> 

5 FORMAT(3F5.0) 

6 FORMAT(I2,5F10.2) 

7 F0RMAT(I2,2F4.2) 

8 FURMAT(8F3.2) 

9 F0RMAT(3I2,4F3.2) 
C 

C 

C ♦♦♦I.NlPUT INITIAL AND FINAL ANALYSIS YEAR VOLUMEfAM PEAK SPLIT AND 4 TRUCKS 

RtAD(MI,8J(VaLUMEIJ) , SPLI T { J ) , TRUCKS( J ) ,J=1,2J 
C 

C ♦♦♦INPUT ANALYSIS YEARS, PAVEMENT TYPE, PROJECT LENGTH IN MILES, AND PAVEMENT 
C ♦♦♦THICKNESS FOR SURFACE, BASE AND SUBGRADE 
C ♦♦♦ PAVEMENT TYPES 

C ♦♦♦ 1. CONCRETE 

C ♦♦♦ 2. BITUMINOUS 

C ♦♦♦ 3. COMPOSITE 

C 

REAUIMI,9INY£ARS,KP, ITYPE, PROJLNf THICK 1, THICK2,THICK3 

LANES=KP-«-l 
C 
C ♦♦♦ESTABLISHMENT OF THE DEFAULT OPTION FOR WORKSITE SIMULATION GIVEN ITYPE 

DO 1030 IA=1,7 

DO 1051 J=l,5 
1031 SIM( IA,J)^SSIM{IA, ITYPE, JJ 
1050 CONTINUE 
C 
C ♦♦♦ESTABLISH DEFALUT OPTION FOR CAPACITY 

DO 1060 J=l,5 

CAP( J)=CCAP{ J,KP) 
1060 CONTINUE 
C 
C 
C 

C ♦♦♦INITIALIZE REMAINDER OF TRAFFIC DISTRIBUTIONS 
C 
1000 CONTINUE 



179 



c 

1020 
C 



1030 
1032 
C 



1031 
lulO 
C 

c 

c*** 

1 100 

c 

1101 

c 

1102 
1105 

C 

C«** 
1200 

C 

c 

c»** 
c*** 
c*** 



DU 1010 IT=1,6 

TtST FOR OlRECTiUNS ILZ IDENTICAL 
GOTO (1032, 1020, I 020, 1020, 1032, 1020), IT 

CONTINUE 

INITIALIZE DIRECTION 2 
DO 1030 IH=1,24 
PCTA0T{IH,ir,2,lJ=PCTADT(IH, IT, 1,1) 

CONTINUE 
CONTINUE 

INITIALIZE FINAL VOLUME DI STRI bUTIONS 
DO 1031 IH=l,24 

PCTA0T(IH,IT,1,2)=PCTA0T( IH,IT,l,i) 
PCTADTdrt, IT, 2,2 )=PCTAOT( I H, IT, 2,1) 

CONTINUE 
CONTINUE 

DETERMINATION OF AN AASHO BASED ANNUAL 
GOTOdlOO, 1101, 1101) , ITYPE 



18 KIP AXLES FACTOR 



AASHO 6ASED ACCUMULATED 18 KIP AXLES TO 1.5 PSI AS A FUNCTION THICKNESS 

RHO=.88*(THICKH-l)**7.35 

GOTO 1102 

AASHO THICKNESS FACTOR FOR BITUMINOUS PAVEMENTS 
THICK=.44*THICK1+.14*THICK2+.1*THICK3 



AASHO BASED ACCUMULATED 18 
RH0=2.25*(THICK+1)**8.94 
ARHO=RHO/20000000 
CONTINUE 



KIP AXLES TO 1,5 PSI AS A FUNCTION THICKNESS 



READ TYPE OF OVERRIDE 
READ<MI, 1) IP, END 



OR END OF OVERRRIDES 



TEST FOR END OF OVERRIDE DATA 
IF(END.EQ.ENOVER)GOTO 1299 



60 TO PROPER 
THE OVERRIDE 



OVERRIDE 
SWITCHES 



ROUTINE 

ARE SUMMARIZED 



AS FOLLOWS: 



1. HOURLY VOLUME DISTRIBUTION BY TRIP PURPOSE 

2. PERCENT OF TOTAL VOLUME BY TRIP PURPOSE 

3. DIRECTIONAL BALANCING SWITCH 

4. PERMITTED OCCUPANCY INTERVAL BY ACTIVITY 

5. A RANGE OF OVERRIDE PARAMETERS BY ACTIVITY 

6. VERTICAL AND HORZONTAL ALIGNMENT 

7. VEHICLE CLASSIFIACTION DATA 

8. MAINTENANCE SIMULATION PARAMETERS 

9. UNIT OPERATING COSTS 

10. PRINT SWITCH 

11. PAVEMENT LANE WIDTH 

12. INCOME LEVEL 



180 



C*** 13. SPEEDS FOR WALKING AND TRAVELING ON ROADWAY BY MAINT. CREW 

C*** 14. TERMINAL PSI VALUE 

C*«* 15. DETOUR PARAMETERS 

C*** 16. DESIGN LIFE 

C*** 17. ACTIVITY STANDARD 

C*** 18. CLOSURE CAPACITIES 

C*** 19. FREEWAY DESIGN SPEED 

C*** 20. AVERAGE ACCIDENT COSTS 

C*** 21. VEHICLE OCCUPANCY 

C*** ZZ. COMMERCIAL VALUE OF TIME 

C*** 23. SPEED LIMITS 

C 

GOTU(1201f 1203, 1205, 1206, 1208, 1209, 1210,1212 f 1220 t 1225, 1226) ,IP 

IP=IP-11 

GOTU( 1227, 1228, 1229, 1230,1231,1232,1234,1235,1236, 123 7,1238) ,IP 

IP=IP-11 

GGT0tl239) ,IP 
C 

C ***** PACKET NUMBER 1 
C 

C*** READ TRIP PURPOSE, DIRECTION, VOLUME LEVEL, & HOURLY DISTRIBUTION 
C ***SWITCHES FOR TRIP PURPOSE 
C ♦** 1. WORK TRIPS 

C *♦* 2. PERSONAL BUSINESS TRIPS 

C *♦* 3- SOCIAL-RECREATIONAL TRIPS 

C *** 4. SCHOOL TRIPS 

C *** 5. VACATION TRIPS 

C *** 6. COMMERCIAL TRIPS 

1201 READ (MI, 2) IT, ID, LE VEL, ( Z { I ) , 1= 1 , 24) 
C 

C*** TEST FOR END OF HOURLY DISTRIBUTION OVERRIDE 

IF(IT.£Q.0)G0TO 1200 
C 
C*** SET INDEX TO INDICATE OVERRIDDEN DISTRIBUTIONS 

IBALdT, I0,LEVEL) = 1 
C 
C*** REPLACE OLD WITH NEW DISTRIBUTION 

DU 1202 1=1,24 

PCTADT{I,IT, 10, LEVEL ) = ZU) 

1202 CONTINUE 
C 

C*** GET NEXT HOURLY DISTRIBUTION 

GOTO 1201 
C 

C ***** PACKET NUMBER 2 
C 
C*** READ DIRECTION, VOLUME LEVEL, £ TRIP PURPOSE DISTRIBUTION 

1203 READ (MI, 4) ID, LEVEL, (Z( I) ,I = l,t>) 
C 

C*** TEST FOR END OF TRIP PURPOSE DISTRIBUTIONS OVERRIDES 

IF(iD.Eg.0)G0T0 1200 
C 
C*** REPLACE OLD WITH NEW TRIP PURPOSE DISTRIBUTION 

DO 1204 1=1,6 



181 



PERCNTd, ID, LfcVEL 1=^(1 ) 
1^04 CONTINUE 
C 
C*** GET NEXT TRIP PURPOSE DISTRIBUTION OVERRIDE 

GOTO 1203 
C 

C #*««♦ PACKET NUMBER 3 
C 
C**« SET INDICATOR TO COMBINE AM L PM PEAKS 

1205 IDIR=3 
GOTO 1200 

C 

Q ***** PACKET NUMBER 4 

1206 COi^'TINUE 

DO 1207 1=1,9 
C 

C*** OVERRIDE ALLOWED OCCUPANCY HOUkS 
C 
C*** READ ACTIVITY NUMBER, START TIME, FINISH TIME 

READ(MI,2)(IN0CC<I,J),J=1,3) 
C 

C «**iF OCCUMPANCY TIME FOR ALL ACTIVITIES IS INPUT , • INOCC( I , 1 J =10' THEN 
C ***THE DEFALT OPTION IS OVERRIDEN 

IF{INOCC(I,l}-EU.lO)INOCC(iO,l)=0 
C 
C*** TEST FOR END OF OCCUPANCY HOURS OVERRIDES 

IF(IN0CC{I,1).EQ.0)G0T0 1200 
C 
C*** GET NEXT OCCUPANCY HCUR OVERRIDE 

1207 CONTINUE 
C 

C*** DUMMY READ OF BLANK CARD FOLLOWING NINE OVERRIDES 

READiMI, 1)11 
C 
C*** GET NEXT TYPE OF OVERRIDE 

GOTO 1200 
C 

C ***** PACKET NUMBER 5 
C 

C*** READ OVER TYPE, ACTIVITY, AND VALUE 
C **«SWITCHES FOR OVERRIDE PARAMETERS 

1. CONTINOUS CREW WORK HOURS 

2. LOCATION OR JOINT SPACING 

3. WORKLOAD MODEL FACTOR 

4. WORKLOAD MODEL FIXED ANNUAL RATE 
3. TRAVEL TIME HOURS 

6. MAINTENANCE LEVEL 

7. CURE TIME IN HOURS 

8. TRAFFIC CONTROL INSTALLATION TIME IN HOURS 

9. MAXIMUM TRAFFIC CONTROL ZONE LENGTH IN MILES 

10. VOLUME/CAPACITY RATIO ALLOWED 

11. MINIMUM TRAFFIC CONTROL LENGTH IN MILES 

12. SHOULDERS OPEN 

1208 READIMI, 3H1,IA, VALUE 



c 


*** 


c 


*** 


c 


*** 


c 


*** 


c 


*** 


c 


♦ ** 


c 


*** 


c 


*** 


c 


*** 


c 


*** 


c 


*«* 


c 


*** 



182 



c 

C*** TEST FOR END OF OVER OVERRIDES 

IF( Il.EU.OlGOrO 1200 
C 
C*** REPLACE ASSUMED VALUE WITH OVERRIDE VALUE 

OVERdif IA) = VALUE 
C 
C*** GET NEXT OVER OVERRIDE 

GOTO 1208 
C ***** PACKET NUMBER 6 
C 

c 

C ***DESIGN ALIGNMENT, VERTICAL AND HORIZONTAL 

1209 CONTINUE 
C 

C ***READ ALIGNMENT TYPE' +GRAOE , -GRADE, DEGREE S« , MAGNI TUDE AND MILEAGE 

REAUIMI, 3)11, 12, VALUE 
C 
C ***TtST FOR END OF OVERRIDE 

IF(I1«EQ.OJGOTO 1200 
C 
C *«*REPLACE ASSUMED VALUE HITH OVERRIDE VALUE 

ALIGN(ll,I2)=VALUE 
C 
C ***GET NEXT OVERRIDE 

GOTO 1209 
C 

C ***REA0 VEHICLE WEIGHT, PERCENTAGE AND COSTS, NOTE THAT FIRST CARD 
C ***MUST BE PASSENGER VEHICLES 
C 
C ***** PACKET NUMBER 7 

1210 IWT=0 

1211 READ(MI,5J(Z(J), J=1,3J 
C 

C ***TEST FOR END OF OVERRIDE 

IF(Z(l).EQ.0iGOTO 1200 

IWT=IWT+l 

WEIGHT( IWT,1 ) = Z( 1) 

WEIGHT(IWT,2)=Z(2)/100 

WEIGHT(IWT,JJ=Z(3) 

GOTO 1211 
C 

C *«*«« PACKET NUMBER 8 
C 

C ♦**READ ACTIVITY AND SIMULATION PARAMETERS 
C **♦ 1. WORKSITE TYPE 

C *«* 2. WORKSITE FACTOR 

C *** 3. ADO ON VALUE 

C ♦** 4. NUMBER OF ITERATIONS 

C ♦** 5. RANDOM OR UNIFORM LOCATIONS 

1212 CONTINUE 
R£AD{MI,6)IA,(Z( Ji ,J=i,5) 

C 

C ***TEST FOR END OF OVERRIDE 



183 



c 

IF(IA.6Q.0)GOTO 1200 

00 1213 1=1.5 
1213 SIM(IA,i)=Z{I) 

GOTO 1212 
C 
C ***^r^ PACKET NUMBER 9 

1220 REA0(M1,7)I1«(Z( J) tJ=l»2) 
1F{U.EQ.O)GOTO 1200 
GaT0(1221»1222f 1223, 1224) r II 

1221 FUEL(1)=Z(1) 
FUEL(2)=Z(2) 
GOTO 1220 

1222 TIRES(1)=Z(1) 
TIRES12J=Z(2) 
GOTO 1220 

1223 0IL{1)=Z{1) 
0IL(2J=ZC2) 
GOTO 1220 

1224 SINDEX=Z<1) 
GOTO 1220 

C 

C ***** PACKET NUMBER 10 

1225 REA0(MI,3)IPR1NT,JPRINT 
GOTO 1200 

C 

C ***** PACKET NUMBER 11 

1226 REA0(MI,8)WIDTH 
GOTO 1200 

C 

C ***** PACKET NUMBER 12 

1227 REA0(MI,1)INC 
GOTO 1200 

C 

C ***** PACKET NUMBER 13 

1228 R£AO(MI,8)WALK,TCM0VE 
GOTO 1200 

C 

C ***** PACKET NUMBER 14 

1229 REA0(MI,8)PSIRS 
GOTO 1200 

C 

C ***** PACKET NUMBER 15 

1230 REA0(MI,8)(DET0UR(J),J=1,7) 
GOTO 1200 

C 

C ***** PACKET NUMBER 16 

1231 R£A0<MI,8)DLIFE,RLIFE 
GOTO 1200 

C 

C ***** PACKET NUMBER 17 

1232 KEA0(MI,3iIA,Il,(Z(J),J=l,3) 
IF(IA.EQ.O)GOTO 1200 

00 1233 J=l,3 



184 



PSUA,Ii,J) = Z( JJ 
1233 CONTINUE 
GUTG 1232 
C 

(; ***** PACKET NUMBER 18 
12i4 REAL)(M£»8) (CAP(J), J=l,f>) 
GOTO 1200 
C 
C ***** PACKET NUMBER 19 

1235 R£AL)(MI,dJDSPEEJ 
GOTO 1200 

C 

C ***** PACKET NUMBER 20 

1236 KEA0(M1,5JAAC0ST 
GOTO 1200 

C 

C ***** PACKET NUMBER 21 

1237 READIMI,8)0CW0RK,0CSCHL 
GOTO 1200 

C 

C ***** PACKET NUMBER 12. 

1238 REAt)(MI,8JC0MV0T 
GOTO 1200 

C 

C ***** PACKET NUMBER 23 

1239 R£AD{MI,8)(SLIMIT( J) ,J=1,5) 
GOTO 1200 

1299 CONTINUE 
C 

c 
c 

C ***ARRAYS ARE ESTABLISHED FOR FULL DEPTH AND PARTIAL DEPTH PATCH SIZES 

C 't'^+AND RANDOM LOCATIONS ALONG THE ROADWAY 
C 

c 
c 
c 

C*** INITIALIZE NY AN ODD NUMBER AND N1,N2,N3, COUNTERS FOR PATCH ARRAYS 

NY=7 

N1=0 

N2=0 

N3=0 
C 
C*** DETERMINE PFACT, A FACTOR TO CONVERT F.D. PATCH LENGTHS TO AREA IN SQ.YOS. 

PFACT=WIDTH/9 
C 
C*** TEST FOR PAVEMENT TYPE 

IFdTYPt.EU.DGOTO 106 
C 
C*** If THE PAVEMENT IS BITUMINOUS THE ARRAY IS FACTORED BY TEN AND 

PFACT=PFACT*10 
106 CONTINUE 
C 
C*** TWO RANDOM NUMBERS ARE GENERATED FOR TESTING AGAINST DISTRIBUTION 



185 



00 llJ 11=1,10 

IF (Ni.EQ. 1000. AND. N.i.EQ. 1000 )GOTO 111 

DO lUl 1=1,1000 

DO lot J=l,2 

NY=NY*65539 

IF(NY)102,104,104 

102 NY=NY4-2l474b3647+l 

104 RANOOM(J)=NY*. 46566136-9 
C 

C*** THE FIRST RANDOM NUMBER IS CONVERTED TO A FULL DEPTH CONCRETE 
C*** PATCH LENGTH AND TO A PARTIAL DEPTH PATCH AREA 

XF=RAND0M<1)*50 

XP=KAisiDOM( 1J*40 
C 
C«** ONCE ANY COUNTER REACHES 1000 THE ARRAY HAS BEEN FILLED 

IF(N1.EQ.1000)GOTO 103 
C 

C*** THE FULL DEPTH PATCH LENGTH IS ASSIGNED TO THE DENSITY FUNCTION 
C«#* FOR FULL DEPTH PATCH SIZES AND THE RESULTING NUMBER IS TESTED 
C«** AGAINST THE SECOND RANDOM NUMBER 

YD=(.186E-3)*((.75*XF)**8)*(EXP(-.75*XF) ) 

IF(RAND0M(2).GT.YD}GUT0 103 
C 
C«** THE ACCEPTED PATCH IS PLACED IN AN ARRAY 

Nl = Nl-»-l 

PATCHF(N1*=XF*PFACT 
C 
C 
C*** ONCE ANY COUNTER REACHES 1000 THE ARRAY HAS BEEN FILLED 

103 IF(N2.Ey.l000)G0T0 108 
C 

C»*« THE PARTIAL DEPTH PATCH AREA IS ASSIGNED TO THE DENSITY FUNCTION 
C*** FUR PARTIAL DEPTH PATCH SIZES AND THE RESULTING NUMBER IS TESTED 
C*«* AGAINST THE SECOND RANDOM NUMBER 

YD=1.47*XP*EXP{-.6*XP)-»-. 1 

IF(RAND0M(2) .GT.YD)GOTO 108 
C 
C*** PARTIAL DEPTH PATCH CANNOT BE SMALLER THAN 1/2 SQ. FT. 

IF(XP.LT.0.5)GUT0 108 
C 
C*** THE ACCEPTED PATCH IS PLACED IN AN ARRAY 

N2=N2-H 

PATCHP{N2J=XP 
C 
C*** ONCE ANY COUNTER REACHES 1000 THE ARRAY HAS BEEN FILLED 

108 IF(N3.EQ.1000)GOTU 101 
C 
C*** THE SECOND RANDOM NUMBER IS ASSIGNED TO A RANDOM NUMBER ARRAY 

N3=N3+1 

RL0C(N3]=RAND0M(2J 
101 CONTINUE 

110 CONTINUE 

111 CONTINUE 
C 



IBS 



C*** THE RANDOM NUMBER ARRAY IS SORTED IN ASCENDING ORDER 

DO 105 1=1,999 

N=I + 1 

DO 107 J=N,1000 

IFCRLOCi JI.GT.RLQC(I)JGOTO 107 

TEMP1=RL0C(I J 

RLOC(n = RLOC(J) 

RL0C(J)=TEMP1 
107 CONTINUE 
105 CONTINUE 
C 
C 
C ***COMPUTE THE SIMULATION WORKLOAD TO BE ASSOCIATED WITH EACH ACTIVITY 

00 120 IA=1,7 
C 
C ***D£TERMIN£ THE TYPE OF WORKS! TE , FULL DEPTH, PARTIAL DEPTH, LANE 

J=SIM(IA,1) 
C 
C ***DETERMINE THE NUMBER OF ITERATIONS 

N=SIM(IA,4) 
C 
C ***INITIALIZE THE HOLD FOR THE SIMULATION WORKLOAD 

SWORK(IA)=0 

DO 121 IW=1,N 

GOTO(130,131,132),J 

130 T£MP1=PATCHF(IW) 
GOTO 133 

131 TEMPl^PATCHPdW) 
GOTO 133 

132 SW0RKnAJ = (SIM(IA,2)+SIM(IA,3)J*N 
GOTO 120 

C 

C ***ACCUMULATE SIMULATION WORKLOAD 

133 SWORKlIAi=SWORK(IA)+TEMPi*SIM( IA,2i^SIM( IA,3) 
121 CONTINUE 

120 CONTINUE 
C 
C 
C 

C SUBROUTINE SPEED 
C 
C 
C 

C ♦♦♦DETERMINATION OF SPEED MATRICS 
C 
C 
C ♦♦♦DETERMINE MAXIMUM AVERAGE OPERATING SPEED FOR FREEWAY 

TEMP1=0.9^DSPEED 
C 
C ♦♦♦ESTABLISH THE NUMBER OF SPEED CATEGORIES 

N=LANES+1 
C 
C ♦♦♦DETERMINE SPEED LIMIT ON DETOUR 

SLIMIT(LANES)=D£T0UR(3) 



187 



c 

C ***D0 FOR EACH SPEED CATEGORY 

DO 550 IC=l,N 
C 
C 
C ***HOW MANY LANES OPEN TO THE MOTQREST 

M=LAN£S-IC 
C 
C ***MINUS IS FREEWAY, ZERO IS DETOUR 

IF(M)560, 561,562 
C 

C ***LANe CAPACITY COMPUTATIONS 
C 

5o0 CPLANE=CAP(IC)/LANES 

GOTO 563 

561 CPLANE=D£TOUR(5)/DETOUR{7) 
GOTO 563 

562 CPLANE=CAP{ICJ/M 

563 CONTINUE 
C 

C **«COMPUTE SPEED AT CAPACITY 

TEMP2=12.0*CPLANE +.5*CPLANE««4. ^6 
C 
C ***OETERMINE MAXIMUM SPEED LOSS 

TEMP3=TEMP1-TEMP2 
C 
C **«D0 FOR ELEVEN INCREMENTS OF THE VOLUME-CAPACITY RATIO 

00 551 1=1,11 
C 
C ♦♦♦DETERMINE A VOLUME 

FACT2={I-i)*CPLANE/10. . 

VC=FACT2/CPLANE 
C 
C *«*ESTABLISH CONSTANT SPEED LOSS 

TEMP4=(.4*FACT2-10J*VC 
C 
C «*«OETERMIN£ TOTAL AVAILABLE SPEED LOSS TO CAPACITY SPEED 

T£MP5=TEMP3-TEMP4 

IF(TEMP5.LT.0)TEMP5=0 
C 
C ***DETERMIiME SPEED LOSS TO CAPACITY SPEED 

TEMP6=VC**25»TEMP5 
C 
C ♦♦♦COMPUTE AND HOLD SPEED 

SP(IC,n = TEMPl-T£MP4-TEMP6 
C 
C ♦♦♦DETERMINE SPEED FOR SPEED LIMIT 

TEMP7=SLIMIT(IC)*.9-J.6^VC 
C 
C ♦♦♦TEST FOR MINIMUM SPEED AND HOLD MIMIMUM 

IF(SP( Id ).GT.TEMP7)SP{ IC, I i=TEMP7 
551 CONTINUE 
550 CONTINUE 
C 



188 



c 

C SUBROUTINE INUCC 

C 

C 

C*** CREATION OF THE IHOUR ARRAY FOR OCCUPANCY TIME 

C*** CREATE A OCCUPANCY ARRAY FOR EACH ACTIVITY 

DO 1342 IA=i,7 
C 
C*** ZERO INDEX SO DEFAULT OCCURS IF ACTIVITY IS NOT IDENTIFIED 

INDEX^O 
C 

C **«IF THE CREWHOUR VARIABLE •0VER(1,IA)» IS EQUAL TO 24 
C ***THEN ASSIGN l»S TO THE IHOUR ARRAY FOR ACTIVIY lA 

IF ( OVER ( l,IA).Ey.24) INDEX=1 

DO 1341 IH=1,24 

IHOUR(IH,IA)=INDEX 
1341 CONTINUE 

IFdNDEX.EQ.DGOTO 1342 
C 
C**« SEARCH FOR A MATCH TO ACTIVITY NUMBER 

DO 1343 1=1,10 

IFIINOCCd ,1J.NE.IA)G0T0 1343 
C 
C*#* ESTABLISH A "FROM", "TO" OCCUPANCY RANGE 

IN1=IN0CC( I,2J 

IN2=IN0CC(I,3) 
C 
C*** THE "FROM" OCCUPANCY HOUR CANNOT EXCEED THE "TO" OCCUPANCY HOUR 

iF(lNl.GT.IN2J IN2=lN2+24 
C 
C**<c SET INDEX TO EQUAL 1 SO THE DEFAULT ROUTINE IS BYPASSED 

iND£X=l 
C 
C*»* ASSIGN 1 TO IHOUR FOR EACH HOOR WHEN. ROAD CAN BE OCCUPIED 

DO 134i> J=IN1,IN2 

J1=J 
C 
C**« THE IHOUR ARRAY CAN NOT EXCEED 24 

IF{JI.GT.24) Ji=Jl-24 
1345 IH00R{J1,IA)=1 

1343 CONTINUE 

1344 IFdNDEX.EQ.DGOTO 1349 
C 

C*** DEFAULT OPTION FOR WHEN NO ACTIVITY HAS BEEN IDENTIFIED 
C*** SEARCH FOR A MATCH TO ACTIVITY NUMBER TEN 

DO 1346 1=1,10 

IFdNOCCd,lJ.N£.10JG0TO 1346 
C 
C*** ESTABLISH A "FROM", "TO" OCCUPANCY RANGE 

INl=IN0CCd,2J 

IN2=IN0CC(I,3) 
C ■ , 

C*** THE "FROM" OCCUPANCY HOUR CANNOT EXCEED THE "TO" OCCUPANCY HOUR 

lFdNl.GT.IN2)IN2=IN2+24 



189 



DO 1347 J=IN1,IN2 
JI = J 
C 
C*** THE IHOUR ARRAY CANNOT EXCEED 24 

IF ( J1.GT.24J Jl=Jl-24 
C 
C*** ASSIGN i TO IHOUK FOR EACH HOUR WHEN ROAD CAN SE OCCUPIED 

1347 IH0UR(J1,IA)=I 

1346 CONTINUE 

1349 CONTINUE 

1342 CONTINUE 
C 
C 

C SUBROUTINE RECON 
C 
C 

1300 CONTINUE 
C 

C*** BALANCE DISTRIBUTION OF TRIP PURPOSES TO REFLECT INPUT « COM.VEH. 

C 

C*** FOR INITIAL AND FINAL YEAR 

DO 1301 1=1,2 
C 
C*** FOR AM AND PM PEAK DIRECTIONS 

DO 1302 iD=i,2 
C 
C*** INITIALIZE VARIABLE TO HOLD SUM OF PERCENTAGES 

TEMP 1=0 
C 
C*** SUM PERCENTAGES OF PASSENGER CAR TRIP PURPOSES 

DO 1303 IT=1,5 

TEMP1=TEMPI+PERCNT( IT, ID, I ) 

1303 CONTINUE 
C 

C#** ESTABLISH CORRECTION FACTOR FOR PASSENGER CAR TRIP PURPOSES 

FACT1=(1-.01*TRUCKS{ U)/TEMP1 
C 
C*** CORRECT PASSENGER CAR TRIP PURPOSE PERCENTAGES 

DO 1304 IT=1,5 

PERCNT<IT,ID,I)=PERCNT(IT,ID,I)*FACT1 

1304 CONTINUE 
C 

C*** REPLACE ASSUMED PERCENTAGE OF COMMERCIAL VEHICLES WITH INPUT PERCENTAGE 
PERCNT(6,ID,I)=.01*TRUCKS(I) 
1302 CONTINUE 

1301 CONTINUE 
C 

C 

C** RECONCILE OVERRIDDEN 100* DISTRIBUTIONS FOR EACH TRIP PURPOSE 

C 

DO 1305 1=1,2 

DO 1306 10=1,2 

DO 1307 IT=l,6 
C 



190 



C*«* TtST TU SEE IF DISTRIBUTION WAS OVERRIUDEN 

IF! iBALtlT, ID, I J.EvJ.OJGOTU 1307 

TEMP1=0 
C 
C*** SUM PcRCENTAGtS OF OVEKRIODfcN DISTRIBUTION 

DO 1308 IH=1,24 

TEMPi=T£MPl + PCTAOT(IH,IT,ID, I J 

1308 CONTINUE 
C 

C*** ROUND SUM OF PERCENTAGES TO NEAREST .l^g 

1T£ST=(TEMP1+.0U05)«1000 
C 
C*** IF SUM OF PERCENTAGES NOT EUUAL TO iOO« RECONCILE EACH PERCENTAGE 

IFilTEST.EQ.iOOOiGOTO 1307 

FACTi=l/TEMPl 

DO 1309 IH=1,24 

PCTADTi IH,IT,ID,I)=PCTADT(IH,IT,ID,I)*FACTl 

1309 CONTINUE 
1307 CONTINUE 

C 

C 

C** TEST FOR BALANCE OR CREATE DISTRIBUTION OF ALL TRIPS 

C 

IF( IBAL(7, ID, I). EU.O)GOTO 1315 
C 
C 

C** BALANCE ALL TRIPS DISTRIBUTION 
C 

TEMPi=0 
C 
C*** SUM PERCENTAGES 

DO 1310 IH=1,24 

TEMP1=TEMP1+PCTADTIIH,7,1D,I ) 

1310 CONTINUE 
C 

C*** ROUND SUM OF PERCENTAGES TO NEAREST .i« 

ITEST=(TEMP1+.0003)*1000 
C 
C*** IF SUM OF PERCENTAGES NOT EQUAL TO 100 RECONCILE EACH PERCENTAGE 

IF(ITtST.EQ,1000)G0T0 1311 

FACT1=1/TEMP1 

DO 1311 IH=1,24 

PCTADTI IH,7,ID,I )=PCTADT(IH, 7, ID, 1 )*FACT1 

1311 CONTINUE 

DO 1312 iH=l,24 

TEMP1=0 

DO 1313 IT=1,6 
C 
C*** ADJUST lOOiS DISTRIBUTIONS BY DISTRIBUTION OF TRIP PURPOSES 

PCTAOT(IH,IT,ID,i) = PCTADT( IH ,1 T, ID , I J*PERCNT ( I T, ID , I ) 
C 
C*** SUM PERCENTAGES OF INDIVIDUAL TRIP PURPOSES 

TEMP1=TEMP1+PCTADT{IH, IT, ID, I) 
1313 CONTINUE 



191 



FACT1=PCTADT(IH,7, 10,1) /TEMPI 
C 
C*** BALANCE INDIVIDUAL TRIP PURPOSES DISTRIBUTION TO DISTRIBUTION OF ALL TRIPS 

DU 1314 1T=1,6 

PCTADT{lH,IT,IO, D^PCTAOT I IH, I T, ID, n*FACTl 

1314 CONTINUE 
1312 CONTINUE 

GOTO 1306 
C 

c 

C** CREATE DISTRIBUTION OF ALL TRIPS 
C 

1315 CONTINUE 

DO 1316 IH=1,24 

TEMP1=0 

DO 1317 IT=1,6 
C 
C*** ADJUST lOOSKOISTRIBUTIONS BY DISTRIBUTION OF TRIP PURPOSES 

PCTADT(IH,IT,IO,n=PCTADT( IH , I T, ID, I )*PERCNT ( IT , ID, I ) 
C 
C**» SUM PERCENTAGES OF INDIVIDUAL TRIP PURPOSES 

T£MPi=TEMPl+PCTADT(IH,IT,ID, I) 

1317 CONTINUE 
C 

C*** PERCENTAGE OF ALL TRIPS EQUALS SUM OF INDIVIDUAL TRIP PUTPOSES 
PCTADTi IH,7, ID,I )=TEMPl 

1316 CONTINUE 
1306 CONTINUE 
1.305 CONTINUE 

C 

C 

C** TEST FOR AVERAGE MORNING AND EVENING PEAKS 

C 

IF(IDIR.NE.3)G0T0 1331 

DO 131b 1=1,2 

DO 1319 IT=1,7 

DO 1320 IH=1,24 
C 
C*** AVERAGE MORNING AND EVENING PEAKS 

PC TAUT ( IH,IT,1,I)=(PCTA0T( IH,1T, 1, 1 i-«-PCTADT{ IH,IT,2,n J/2 

PCTAUT(IH,IT,2,I)=PCTADT(IH,IT,1,I) 
1320 CONTINUE 
1319 CONTINUE 

1318 CONTINUE 
1331 CONTINUE 

C 

c 

C** CONVERT DAILY DISTRIBUTION OF TRIP PURPOSES TO HOURLY DISTRIBUTIONS 

C 

C 

C*** INITIAL AND FINAL YEAR 

DO 1321 1=1,2 
C 
C*** A.M. AND P.M. PEAK DIRECTIONS 



192 



00 1322 10=1,2 
C 
C*** EACH HOUR OF THE DAY 

DO 1323 IH=1,24 
C 
C«** ESTABLISH DAILY TO HOURLY CONVERSION FACTOR 

FACTl=l/PCTADT(iH,7, 10,1) 
C 
C*** EACH TRIP PURPOSE 

DO 1324 IT=1,6 

PCTADT(IH,IT,1D, I)=PCTADT( IH, IT, 10,1 )*FACT1 
1324 CONTINUE 
1323 CONTINUE 
1322 CONTINUE 
1321 CONTINUE 
C 
C 

C** CREATE bASe YEAR AND YEARLY INCREMENT ARRAYS 
C 

MYEARS=NY£ARS-1 

00 1328 10=1,2 

DO 1329 IT=1,7 

DO 1330 1H=1,24 
C 
C*#* COMPUTE YEARLY INCREMENT 

PCTADTl IH,IT,ID,2)={PCTA0T( IH, I T, I D, 2 J-PCTA0T{ IH,IT, ID, 1 ) ) /MYE ARS 
C 
C*** COMPUTE BASE YEAR DISTRIBUTIONS 

PCTA0T{IH,IT,I0, 1) =PCT AOT ( IH, IT, I D,l) -PCTADTl IH, IT, 10,2) 
1330 CONTINUE 
1329 CONTINUE 
1326 CONTINUE 
C 
C*** CONVERT INITIAL AND FINAL VOLUME TO BASE YEAR AND YEARLY INCREMENT 

V0LUME{2) = { VOLUMEC 2)-V0LUME{ 1) )/MYEARS 

VOLUME (1)=VOLUME(1)-VOLUM£( 2) 
C 
C*«« CONVERT INITIAL AND FINAL ^ COMMERCIAL TO tiASE YEAR L YEARLY INCREMENT 

TRUCKS (2 )={TRUCKS(2)-TRUCKS( D) /MY EARS 

TRUCKS(l)=TRUCKS(l)-TRUCKS(2) 
C 
C*** CONVERT INITIAL AND FINAL AM. PM. SPLIT TO BASE YEAR L YEARLY INCREMENT 

SPLIT(2)=(SPLIT(2)-SPLIT(1))/MY£ARS 

SPLIT(l)=SPLIT(l)-SPLIT(2) 

RETURN 

END 



193 



c 
c 

C «««««««** ;Jt ;0e *:(t ******************************************** ********J«'**C 
(^**4:******«;Jc*!j:***** SUBROUTINE UPPARA ♦:«c **♦*♦;«£ *«♦*<(**(; 

Q****************** PROGRAM 'EARUMAR* ♦»«**«*»♦♦«♦♦««(; 

(_^* ««*<;**«*** «*X«**«« ****«***<£;>«#«**(; 

(;*#«#««« «5^ *«*«****«♦******»**♦****♦»*♦***♦»**♦»»****♦*♦***»♦♦****♦ ***C 

C 

SUBROUTINE UPPARA 

INTEUtR C0STS(7,5,d,2) 

COMMON ARHU, CAP(5), COSTS, 

1 CWT, 0V0L(24), HV0L(24)f ID, 

2 IH0UR(^4,7), ITYPE, lY, KP, 

3 LANES, MI, MO, NYEARS, 

4 0CUSTS{65,2J , PATCHF( iOOOi, PATCHP ( 1000) , PROJLN, 

i> RLOCdOOO), SIM(7,5), SP(3,il), SP£E0D(24), 

6 SPEEUN(24}, SPLIT(2J, SWURKW), TRUCKS(2), 

7 VULUME(2), VTRAT£(5,40), ZuNEL(7,4J 
COMMON/ASSUME/ ALIbN(3,6), AACOST, COMVOT, 

1 UET0UR(7i, DLIht, FU£L(2), HRS(7,24,4), 

2 HWURK{7), IDIR, INC, IPRINT, 

3 IWT, JPRINT, OCSCHL, OCWORK, 

4 0IH2), 0VER{12,7), PCT ADT ( 24, 7 ,2 , 2 ) , PS ( 7 ,3 ,3) , 
3 PSIRS, RATtI, RLlf-E, SINUEX, 

6 SLiMITCb), TCMQVE, TIKES(2), TLtVEL(7), 

7 WALK, k^IJTH, WEIGHT{io,3) 
DIMENSION 0C0ST(b5,4,2) 

C 

C 

C SUBROUTINE VTIMt 

C 

C 

DIMENSION AC(5) ,80(5l,8T(5),BIT(f)) 
DIMENSION ACP(3) ,BTP(i>),BITP(5) 
C 

C ***iNITiALIZE SCALE FACTORS , INTERCEPTS , AND COEFFICIENTS OF BENEFITS EQUATIONS 
DATA AC/ 0.07 57, 0.0^94, 0.0627, 0.0231,. 0813/ 

ACP/0.0 33 7,0.02dl,0.0 36 0,0.016i>,O.Od86/ 

B0/-59.34,-il2.3,-i68.2,-il.SJl,-110.a/ 

BIT/1.0 30,2.4y7,3.4<J8,i.'»40, 1.7 7V/ 

bITP/0.862,i.o^8,4. 130, 1.440, 1.779/ 

BT/3. 829,4*0.0/ 

6TP/-0. 041, 4*0.0/ 

THE MAXIMUM ACCURATE VALUE OF TIME FOR WORK TRIPS 

VALUE OF TIME PER VEHICLE CONVERSION FACTOR FOR WORK TRIPS IS 
PASSENOtRS PER VEHICLE 





DATA 




DATA 




OATa 




DATA 




OATA 




DATA 


c 




c*** 


I IS 




1 = 40 


c 




c*** 


THE 


c*** 


THE 



194 



FaCT1=0CW0KK 

c 
c 
c 

C* uiJ LOOP FOR tACH PASSfcNGHR CAR TRiH PURPUSt 

C 

OU 15iO IT=i,i> 
C 
C 

C** COMPUTb HOURLY VALUE OF TiMt SAVINGS bETWEEN t> ANU 14 MINUTES 
C 

DO 1520 J=i>,14 
C 
C*«« FACT2 IS THE VALUE OF THE BENEFITS FUNCTION FOR A TIME SAVINGS J 

FACT2=bO( IT)+J«(bT(ITj+8IT(IT)*lNC) 
C 
C*** FACT3 IS THE PERCENTILE OF MOTORISTS HAVING ZERO BENEFITS 

FACTJ=1.0/(1,Q+EXP(AC<ITJ*FACT2) ) 
C 
C*«* FACTt IS THE PERCENTILE OF MOTORISTS HAVING THE AVERAGE BENEFIT 

FACT4=(l.0+FACT3J/2 
C 
C*«* FACT5 IS THE AVERAGE BENEFIT OF ALL MOTORISTS HAVING A TIME SAVIGS J 

FACT5=li.a-FACTj>J=«'(FACT2+AL0G(FACT4/( U0-FACT4) ) /ACI IT}) 
C 
C*** VTRATE IS THE VALUE OF TIME PER VEHICLE IN DOLLARS PER HOUR 

VTRATt( IT,J)^FACTi>/100/J*60*FACTi 
1520 CONTINUE ' 
C 
C 

C** COMPUTE THE HOURLY VALUE OF TIME SAVINGS BETi^EEN 14 AND 1 MINUTES 
C 

C*** dOZ IS THE INTERCEPT OF THE BENEFITS FUNCTION FOR A TIME SAVING OF 
C*«* GREATEk THE 14 MINUTES 

aO2=B0{ITj+14.0*(bT( IT )-BTP( IT }+lBI T( IT J-BITP( IT ) J*I NO 
C 

C*** FACTo IS THt VALUE OF THE BcNEFITS FUNCTION FOR A TIME SAVINGS 
C*«« BETwEtN 5 AND 14 MINUTES AT 14.5 MINUTES 

FACT6=B0{ IT)+14.5*{BT(IT)+BIT(IT)*INC) 
C 

C*** FACT7 IS THE PERCENTILE OF MOTORISTS HAVING ZERO BENEFITS FOR A TIME 
C**« SAVINGS OF 14.5 MINUTES USING THE BENEFITS FUNCTION FOR A TIME 
C«** SAVINGS BETWEEN 5 AND 14 MINUTES 

FACT7=1.G/(1.0+EXP(AC( IT)*FACT6) ) 
C 

C*** TEMPI IS THE AVERAGE BENEFIT OF ALL MOTORISTS HAVING A TIME SAVINGS 
C*** OF 14.5 MINUTtS USING THE BENEFITS FUNCTION FOR A TIME SAVINGS BETWEEN 
C*** 5 AND 14 MINOTES 

TEMP1=( 1.0-FACT7)*(FACTo + AL0G( ( H-FACT7) / { 1-F ACT7 ) J /AC( IT) ) 
C 

C*«* FACTa IS THE VALUE OF THE BENEFITS FUNCTION FOR A TIME SAVINGS OF 
C*** GREATER THEN 14 MINUTES AT 14. p MINUTES 

FACT8=B02+14.5*(BTP(IT)+BITP(IT)*INC) 
C 



195 



C*** FACT9 IS THE PERCENTILE OF MOTQ|<ISTS HAVING ZERO BENEFITS FOR A TIME 
C*** SAVINGS OF 14.5 MINUTES USING THE BENEFITS FUNCTION FUR A TIME SAVINGS 
C«** OF GREATER THAN 14 MINUTES 

FACT9=1.0/(i.0+EXP(ACP(IT)*FACT8)) 
C 

C*** TEMP2 IS THE AVERAGE BENEFIT OF ALL MOTORISTS HAVING A TIME SAVINGS OF 
C*** ^4.5 MINUTES USING THE- BENEFITS FUNCTION FOR TIME SAVINGS GREATER THAN 14 
C*** MINUTES 

TEMP2=(1.0-FACT9J*(FACT8+AL0G( ( 1+FACT9)/ ( 1-FACTy ) )/ACP{ ITJi 
C 

C*** COMPUTE THE ADJUSTMENT TO BE ADDED TO THE BENEFITS FUNCTION FOR 
C*** TIME SAVINGS OF GREATER THAN 14 MINUTES 

C*** TEMP3 IS THE ADJUSTMENT NECESSARY TO THE VALUES OF TIME SAVINGS 
C*#* OF GREATER THAN 14 MINUTES TO MAKE THE VALUE OF TIME A CONTINUOUS FUNCTION 

TEMP3=TEMPl-TEMP2 
C 
C 

C** COMPUTE THE HOURLY VALUE OF TIME FOR TIME SAVINGS BETWEEN 15 AND 
C** I MINUTES 
C 

DO 1530 J=15,I • 

C 
C*** FACT2 IS THE VALUE OF THE BENEFITS FUNCTION FOR A TIME SAVINGS J 

FACT2=B02+J*{BTPIITJ+B1TP{ IT J* INC) 
C 
C*** FACT3 IS THE PERCENTILE OF MOTORISTS HAVING ZERO BENEFITS 

FACT3=1.0/(1.0+EXPlACP(IT)*FACT2Ji 
C 
C*** FACT4 IS THE PERCENTILE OF MOTORISTS HAVING THE AVERAGE BENEFIT 

FACT4=(1.0+FACT3)/2 
C 
C*** FACT5 IS THE AVERAGE BENEFIT OF ALL MOTORISTS HAVING A TIME SAVINGS J 

FACT5=(l.J-FACT3)*(FACT2+AL0G(FACT4/( 1.D-FACT4) )/ACP(IT) J+TEMP3 
C 
C*** VTRATE IS THE VALUE OF TIME PER VEHICLE IN DOLLARS PER HOUR 

VTRATt(IT,J)=FACT5/100/J*60*FACTl 
1530 CONTINUE 
C 

C*** THE VALUE OF TIME PER VEHICLE CONVERSION FACTOR FOR SOCIAL-RECREATIONAL, 
C*** PERSONAL BUSSINESS, AND VACATION TRIPS IS 1 

FACT1=1 
C 

C*** THE VALUE OF TIME PER VEHICLE CONVERSION FACTOR FOR SCHOOL TRIPS IS 
C*** THE PASSENGERS PER VEHICLE 

IF{IT.EQ-4JFACT1=UCSCHL 
C 
C 

C** THE HOURLY KATE FUR ALL TIME SAVINGS GREATER THAN 1 IS THE SAME AS 
C** THE RATE FOR A TIME SAVINGS OF I MINUTES 
C 

DO 1540 J=It40 

VTRATEI IT,J)=VTRATE( IT,II 
1540 CONTINUE 
C 



196 



c 

C*« THE HOURLY RATE FOR A TIME SAVINGS OF LESS THAN i> MINUTES IS THE KATE 

C** OF TIME SAVINGS FOR A 5 MINUTE TIME SAVINGS 

C 

DO 1550 J=l,5 
VTRATE(IT,J)=VTRATE( IT, 5) 

1550 CONTINUE 

G0T0U560,15 70, 1570, 1560, 1510) ,IT 
C 

C**« INITIALIZE SUBSCRIPT FOR MAXIMUM ACCURATE VALUE OF TIME RATE FOR 
C*** SOCIAL-RECREATIONAL AND SCHOOL TRIPS 

1560 1=20 

GOTO 1510 
C 

C*** INITIALIZE SUBSCRIPT FOR MAXIMUM ACCURATE VALUE OF TIME RATE FOR 
C*** PERSONEL QUSSINESS AND VACATION TRIPS 

1570 1=30 

1510 CONTINOE 
C 
C 

C SOdROUTINE UPCOST 
C 

c 

DO 1981 1=1,65 

OCaSTSU,l) = 

OCOSTSd ,2) = 
1981 CONTINUE 
C 
C ***OET£RMIN£ OPERATION PARAMETER FOR 65 SPEEDS 

DO 1400 IS=i,65 

SS=IS 

c 

C ***FUEL CONSUMPTION IN GALLONS PER PASSENGER CAR VEHICLE PER HOUR 

C 

C ***INIT1ALIZ£ TEMPORARY VARIABLES 

TEMP 1=0 

TEMP2=0 
C 
C ***FUEL CONSUMPTION MODEL FOR LEVEL TANGENT SECTIONS 

TEMP 3=EXP( -. 4844+. 0285*1 SJ 
C 
C ***FUEL CONSUMPTION MODELS FOR POSITIVE GRADES 

00 140:» 1 = 1,6 

IFlALIGNd, D.EQ.OiGOTO 1405 

A=-.45+-0278*IS 

B=.0348+.0214*AL0G(SS) 
C 
C ***ACCUMULATE PRORATED FOEL CONSUMPTION FOR POSITIVE GRADES 

T£MPl=TEMPl + £XP(A+B*i)*ALIGN(l,n/PROJLN 
C 
C ***ACCOMOLATE MILEAGE ASSOCIATED WITH POSITIVE GRADES 

TEMP2=TEMP2+ALIGN( 1, I) 
1405 CONTINUE 
C 



197 



Q ***PUEL CONSUMPTION MODELS FOR NtGATI VE GRADES 

DO 1406 1=1,6 

IF{ALIGN(2,n-£Q.0)GOTa 1406 
C 
C «**COMPUTE FLOAT SPEED 

TEMP3=3+7*I 
C 
C ***lNITiALIZ£ TEMP4,TH£ INCREMENT OF FUEL CONSUMPTION ABOVE FLOAT SPEED 

TEMP4=0 
C 
C ***TEST TO DETERMINE IF THE FLOAT SPEED IS EXCEEDED 

IFt IS.LT.T£MPi>iGOTO 1416 
C 
C ***CUMPUTt THE INCREMENT OF FUEL CONSUMPTION ABOVE FLOAT SPEED 

TEMP4=T EMP3- EXP (-•4844+. 0285*TEMP5) 
C 
C ***COMPUTE THE FUEL CONSUMPTION ASSOCIATED WITH SPEEDS BELOW FLOAT SPEED 

1416 TEMP6=l/tl.61+-l*ISJ 
C 
C ***ACCUMULATE PRORATED FUEL CONSUMPTION FOR POSITIVE AND NEGATIVE GRADES 

TcMPl=TEMPl+(TEMP6+T£MP4J«ALIGN(2, I)/PROJLN 
C 
C ***ACCUMULATE MILEAGE ASSOCIATED WITH POSITIVE AND NEGATIVE GRADES 

TEMP2=T£MP2+ALIGN(2, I) 

1406 CONTINUE 
C 

C ***FUEL CONSUMPTION MODELS FOR HORIZONTAL ALIGNMENT 

DO 1407 1=1,6 

IF(ALIGN(3, I J.EQ.OIGOTO 1407 

C=I 

A=-.483-.087*AL0G(C) 

B= EXP (-3. 562 + . 044* I) 
C 
C ***COMPUTE EXCESS FUEL CONSUMPTION ASSOCIATED WITH HORIZONTAL ALIGNMENT 

TEMP4=EXP(A+8*IS)-TEMP3 
C 
C **#TEST TO 6E SURE ANY EXCESS IS POSITIVE 

IF(TEMP4.LT.0)G0T0 1407 
C 
C ***ADD EXCESS FUEL CONSUMPTION ASSOCIATED WITH HORIZONTAL ALIGNMENT 

TEMPl=TEMPl+TEMP4*IALIGNt3,I )/PROJLNJ 

1407 CONTINUE 
C 

C ***HOLD FUEL CONSUMPTION FOR 4000 LB. PASSENGER VEHICLE PER HOUR BY SPEED 

1408 uC0ST(IS,l,i)=TEMPl+TEMP3*(PR0JLN-TEMP2)/PR0JLN 
C 

C ***TIR£ WEAR IN .001 INCHES OF WEAR PER VEHICLE PER HOUR 
C ***INITIAL TEMPORARY VARIABLES 

TEMP1=0 

T£MP2=0 
C 
C ***T1RE WEAR MODEL FOR LEVEL TANGENT SECTIONS 

TEMP3=EXP{-8.26i>+2.226*AL0G( SSJ) 



198 



C ***TlRe WEAR MODELS FOR POSITIVE GRADES 

DO 1410 I=l»6 

1F(ALIGN( 1,1 ).Eg.O)GOTO 1410 

A=-8.26+.09i>*I 

tJ=2. 23-. 015*1 
C 
C *«*ACCUMUC-AT£ PRORATED TIRE WEAR FOR POSITIVE GRADES 

T£MPl=TEMPl+(EXP(A+Q*ALOG(SS)J*ALIGN(l,i)/PROJLM) 
C 
C ***ACCUMOLAT£ MILEAGE ASSOCIATED WITH POSITIVE GRADES 

TtMP2 = TEMP2+ALiGN{l, I) 

1410 CONTINUE 
C 

C ***TIRE WEAR MODELS FOR NEGATIVE GRADES 

00 1411 1=1,6 

IF(ALIGN(2,I).£Q.0)GaT0 1411 

A=-8.26+.2*I 

B=2.23-.07*I 
C 
C ***ACCUMULATE PRORATED TIRE WEAR FUR POSITIVE AND NEGATIVE GRADES 

TEMPl = TEMPl-»-{EXP(A + £i*AL0G{SSJi*ALIGi\l(2,I )/PROJLN) 
C 
C ***ACCOMULAT£ MILEAGE ASSOCIATED WITH POSITIVE AND NEGATIVE GRADES 

T£MP2=TEMP2+ALiGN(2, U 

1411 CONTINUE 
C 

C ***TIR£ WEAR MODELS FOR HORIZONTAL ALIGNMENT 

DO 1412 1=1,6 

C=I 

IFULIGN(3,1}.£Q.O)GOTO 1412 

A=-3.i+. 59*AL0G(CJ 

B=.077+.002J*I 
C 
C «**ADO EXCESS TIRE WEAR ASSOCIATED WITH HORIZONTAL ALIGNMENT 

TEMPl=TEMPi+itXP(A+6*IS)-TEMP3)*(ALIGN(3,I)/PR0JLNi 
1^12 CONTINUE 
C 
C ***H0LD TIRE WEAR FOR 4000 LB. PASSENGER VEHICLE PER HOUR BY SPEED 

1413 0C0ST(IS,2,l) = TEMPl+TEMP3*iPR0JLlM-TEMP2)/PR0JLN 
C 

C ♦♦♦OIL CONSUMPTION IN QUARTS PER PASSENGER CAR VEHICLE PER HOUR 
C 

C ***UIL CONSUMPTION MODELS FOR VERTICAL ALIGNMENT 
C ***1NITIAL TEMPORARY VARIABLES 

TEMP1=0 

T£MP2=0 
C 
C ♦*«OIL CONSUMPTION FOR LEVEL TANGENT SECTIONS 

TEMP 3=EXP(-3.414+. 0242*1 S J 

DO 1420 1=1,6 

TEMP4=ALIGN(l,n+ALIGN(2,IJ 

IF(TEMP4.EQ.0JGUT0 1420 

A=-3.414-. 0184*1 

B=.0242+. 00142*1 



199 



c 

C *«*ACCUMULATe PRUKATeo OIL CONSUMPTION FOR VERTICAL ALIGNMENT 

TtMPi=TtMPi+(£XP(A + t>*IS) ) * ThMP4/PRuJLN 
C 
C *«*ACCUMULATE MILEAGE ASSOCIATED WITH VERTICAL ALIGNMENT 

TcMP2=TEMP2+TEHP4 

1420 CONTINUE 
C 

C ***HOLL) OIL CONSUMPTION FOR 4000 LB. PASSENGER VEHICLE PER HOUR BY SPEfcO 

1421 0C0ST( IS,i,l)=TEMPi+T£MPi*{PR0JLN-TtMP2) /PROJLN 
C 

C ***PASSENGER VEHICLE MAlNThNANCE COST IN DOLLARS PER HOUR FOR SPEED IS 

C 

C ♦♦'^MAINTENANCE COST MODEL FuR LEVEL TANGENT SECTIONS 

TEMPi=EXP(-3.828<-1.2 V8*AL0G( SSJ ) 
C 
C «**liMlTIAL TEMPORARY VARIABLES 

TEMPi=0 

T£MP2=0 
C 
C ***MAINTtNANCE COSTS MODELS FOR POSITIVE GRADES 

DO 1430 1=1,6 

IFCALIGNd, I ).EQ.0)G0T0 1430 

A=3.828-.0l4*I 

ti=1.27d+. 001*1 
C 
C ***ACCUMULATE PRORATED MAINTENANCE COSTS FOR POSITIVE GRADES 

T£MPi=TEMPl+£XPi-A-n3*AL0G( SS ) ) *AL IGN ( 1 , I )/ PROJLN 
C 
C **«ACCUMULATE MILEAGE ASSOCIATED rtlTH POSITIVE GRADES 

TtMP2=TEMP2 + ALlGN( 1, I) 

1430 CONTINUE 
C 

C ***MAINT£NANC£ COSTS MODELS FOR NEGATIVE GRADES 

DO lt31 1=1,6 

IF(ALIGN(2, I).EQ.0)GOT0 1431 

A=3. 828-. 0285*1 

8=1.2 7d-.011*I 
C 
C «**ACCUMULATE PRORATED MAINTENANCE COSTS FOR POSITIVE AND NEGATIVE GRADES 

TEMP1=TEMP1+EXP {-A+8*AL0G( SS ) ) *AL IGN ( 2 , I ) /PROJLN 
C 
C ***ACCUMULATE MILEAGE ASSOCIATED WITH POSITIVE AND NEGATIVE GRADES 

TtMP2=TEMP^+ALIGN(2, li 

1431 CONTINUE 
C 

C ***HULD MAINTENANCE COST FOR 4000 LB. PASSENGER VEHICLE PER HOUR BY SPEED 

1432 0C0ST(IS,4,l)=TEMPl+TEMP3*(PR0JLN-TEMP2)/PR0JLN 
C 

C ***DEPR£CIATION RATE FOR PASSENGER CARS PER HOUR AT SPEED IS 

C 

C **«ANNUAL PASSENGER MILEAGE ISA FUNCTION OF SPEED IS 

TEMP1=1974*IS**.489 
C 



200 



C ♦**YtARS TO SCRAP IS A FUNCFION OF AiMNUAL MILEAGE 

TE MP2=^7. 5-3. 88* ALUG( TEMPI) 
C 
C ***THt HOURLY UEPRECIATIUN RATE OF PASSENGER CARS IS ( 1 /L IFEMI LEAGE/SPEED IS) 

0CUST{IS,4,2)=i/{lTtMPI*TEMP2)/IS) 
1400 CONTINUE 
C 
C 
C 

C ***C0NVERSION OF PASSENGER CAR OPERATION PARAMETERS TO COMPOSITE COMMERCIAL 
C 
C 

C ***CJNV£Rr FOR 65 SPEEDS 
C 

L»0 1450 IS=i,6:> 
C 

C **#AlJDRESS THE PARAMETERS FUEL t TI RfcStUI L ANO MAINTENANCE 
C 

UO 1451 Il=lt4 
C 
C ***INITIATE THE VEHICLE WEIGHT COUNTER 

1 = 1 
C 
C ***bRANCH TO APPROPRIATE OPERATION PARAMETER 

GUTOC 1453, 1454,145 5, 1456), II 
C 
C «**FUEL CONSUMPTION WEIGHT RATIO FACTOR COMPUTATION 

1453 A^l/( .46-i-.0344*iS-.00031*IS**2) 
b=l/( .78+.04 37«iS-.00047*IS**2) 
R W=EXP I- A4-B*(ALuo( WEIGHT (1,1))) ) 
GUT0(1457) ,1 

GOTO 1459 
C 
C ***TIRE WEAR WEIGHT RATIO FACTOR COMPUTATION 

1454 RW=.7o*.06l*WEIGHT(I, 1) 
GUT0( 1457) ,1 

GOTO 1459 
C 

C *«*01L CONSUMPTION WEIGHT RATIO FACTOR COMPUTATION 
1^*55 A = .93Q + .003«IS 

b=-.0l49+,000U4*IS 

RW=1/U + B*WEIGHT(I ,1)) 

IF(WEIGHT( I, 1).LE.50)G0T0 1452 

RW=3*wEIGHTt I,l)/( 30+1 S) 
1452 CONTINUE 

G0T0(1457) ,1 

GOTO 1459 
C 

C ««*MAINTENANCt COSTS WEIGHT RATIO FACTOR COMPUTATION 
1456 FACT1=IA6S( IS-^0) 

A=<.12+-0084*FACTi 

b=.315+.0021*FACTl 

C=.U0438+.000023«FACT1 

RW=-A + B*WEIGHT( 1 , 1 )-C*W£ IGHT { 1 , 1)«*2 



201 



IFCWEIGHTI I, D.LE.tiO.OiGOTO 1466 

R«=4.68+.039*FACTl + .07 72*{WEiGHT(I ,U-50) 
1466 CONTINUE 
C 
C ***UEPRECIATION WEIGHT RATIO FACTOR COMPUTATION 

TEMP J=EXP (.163-. 031* WEIGHT! I, Ui 

GOTO (145 7), I 

GOTO 1461 
C 

C ***HOLO PASSENGER CAR WEIGHT RATIO IN FACT2 
1457 FACT2=RW 

IF(Ii.NE.4)G0Ta 1458 
C 
C ***MAINTENANC£ COSTS FOR PASSENGER CAR FACTORED BY SERVICES INDEX 

OC0ST(IS,Il,l)=OCO5T(lS.Il,i)*SINafcX 
C 
C ***DEPRECIATION RATE FOR PASSENGER CAR CONVERTED TO DOLLARS 

0C0ST(IS,I1,2)=0C0ST(IS,I1.2)*WEIGHT(1,3) 
C 

C ***INITALIZ£ TEMPORARY VARIABLES FOR THE DEVELOPMENT OF COMPOSITE 
C ***CQMMERC1AL VEHICLE OPERATION PARAMETER ARRAY 
145b TEMP1=0 

TEMP 2=0 

TEMP4=0 
C 
C ***INCREMENT THE COMMERCIAL VEHICLE WEIGHT CLASS 

1480 I=H-1 
C 
C ***T£ST FOR LAST VEHICLE CLASS 

IFd.GT.IWTJGOTO 1470 
C 
C **«ACCUMULATE THE PERCENTAGE OF COMMERCIAL VEHICLES 

TEMP2=T£MP2+*il£IGHT( I ,2) 
C 
C ***BRANCH TO THE APPROPRIATE OPERATION PARAMETER 

GOTO (1453f 1454,1455, 1456), II 
C 
C ***ACCUMULATE A COMPOSITE WEIGHT RATIO FACTOR FOR DEPRECIATION 

14ol TEMP4=TEMP4*TEMP3«WEIGHT(I,2J*WEIGHT(I,3)/WEIGHT(1,3J 
C 

C **«ACCUMULAT£ THE APPROPRIATE OPERATION PARAMETER WEIGHT RATIO FACTOR 
1459 T£MP1=TEMP1+RW*WEIGHT(I,2) 

GOTO 1480 
1470 IF(I1.NE.4}G0T0 1460 
C 

C ***CONVERT THE MAINTENANCE COSTS FOR A PASSENGER CAR TO A COMPARABLE 
C *»*COSTS FOR A COMPOSITE COMMERCIAL VEHICLE AND HOLD IN TEMPI 

TEMP1=0C0ST( IS, U, 1 J *TEMP1/TEMP2 
C 

C ***CONVERT THE DEPRECIATION COSTS FOR A PASSENGER CAR TO A COMPARABLE 
C »**COSTS FOR A COMPOSITE COMMERCIAL VEHICLE AND HOLD IN TEMP2 

TEMP2=0C0ST(IS,I1,2)*TEMP4/T£MP2 
C 
C ***ADO THE DEPRECIATION COSTS TO MAINTENANCE COSTS ARRAY FUR PASSENGER CARS 



202 



C ***ANO ADJUST FOR ACTUAL PASSENGEt^ CAK WEIGHT 

UC0ST(1S,I1, 1)=UCUST(1S, II, 1 )*FACT2+UCdST ( IS, II, 2) 
C 

C «*'«=ESTABLISH THE COMPOSITE CGMMEkCIAL VEHICLE MAINTENANCE AND DEPRECIATION 
C **«CuSTS ARRAY 

UCOST{ IS,Il,2)=TEMPl+T£MP2 

GOTO 1451 
C 

C ***CaNV£RT THE OPERATIONAL PARAMETER FUR A PASSENGER CAR TO A C0MPARA6LE 
C ***OPERATIONAL PARAMETER FOR A COMPUSIFE COMMtRCIAL VEHICLE 

1460 OCOST( IS, ll,2)=GC0ST(IS,Il, l)*TEMPi/TEMP2 
C 
C ***FUUR KIP PASSENGER CAR ADJUSTED FOR ACTUAL PASSENGER CAR WEIGHT 

UCOST(IS,ll, 1)=0CUSTUS, Il,i)*FACT2 
1451 CONTINUE 
14^0 CONTINUE 
C 

C ♦**CUNVERT THE OPERATIONAL PARAMETERS FROM UNITS PER VEHICLE PER HOUR TO 
C ***COSTS PER 1000 VEHICLES PER HOUR FOR ALL OPERATIONAL PARAMETERS 

DO 1490 IS=lt65 

UCOSTSllS,li=OCOSTS( IS , 1 )+OC0ST ( I S, 1 , 1 ) *FUEL ( 1)*10 00 

OCOSTSdS, 1)=0C0STS( IS, l) + aCOST{ IS,2,1)*TIRES(1)*1000 

0C0STS(IS,1)=0C0STS( IS,i)+OCOST( IS,3,li»0IL( 1 J* 1000 

OCOSTSdS, 1)=0C0STS( I S , 1 )+0C0ST ( I S ,4, 1)* 1000 

0C0STS(1S,2)=0C0STS( IS ,2 )+OCOST ( i S , 1 , 2 i *FUEL ( 2 ) * lUOO 

0C0STS(IS,2)=0C0STS( IS,2)+0C0ST( IS , 2, 2 i* TIRE S( 2) »1000 

0CuSTS(IS,2i=0C0STS( IS,2)+0C0ST( I S, 3, 2 ) *OIL( 2) *1000 

OCOSTSdS, 2 )=UCUSTS( IS , 2 ) + OCUST (I S ,4,2 J *1000 
1490 CONTINUE 

TEMP1=0 

TEMP2=0 

DO 1495 I=2,IriT 

TEMP1=TEMP1+W£IGHT( I,l)*W£IGHTd ,2) 

TtMP2=rEMP2 + WEIGHT( I ,2) 
1495 CONTINUE 

CrtT=TEMPi/TEMP2 

RETURN 

END 



203 



c 
c 


(; <t ;(c ;{( « :<c 4c « « « « ;^ 4c ijc «: :ic )(c :«c :«( :Cc ;jc ;(c ;«c « 4c <c « « j|)c ;tc ;4c « « « ;gc « :(c « « ;«: 4c ;«c « « :»: 3(c >(c « ^ 


Q4t4c4c«4c**««««4c*4<**4c« 




***4c***4t*******C 


Q«4c4c4c«4c4c4c4c4c«4c4c4c4c4c4c4c SUBROUTINE 


RPRINT 


***4c4c**********C 


C«4c«4c«:4c4c4c4c4e«4t*4c*4c«4c 




***********4E***Q 


(;***4e#*««4c4c«4c4c*«*«4c PROGRAM 'EAROMAR' 


******** 4c*** ***C 


(^ 4c * 4c 4c* *♦ 4c* * 4c 4t * 4c 4c 4c 4c 4c 




********4c******C 


(;4c *******************;#: «**4c ******************** ***********************C 


(;;*4(4c*******>tc4c*********************************«***«****«****«********C 


Q^«c4c ********************************************************** *******C 
r 


SUBROUTINE RPRiNT 






INTEGER C0STS(7,5,8,2J 






COMMON ARHO, 


CAP(5), 


COSTS, 


1 CWT, DVUL{24)t 


HV0Li24), 


10, 


2 lH0UR(24t7J , ITYPE, 


lY, 


KP, 


3 LANES, MI, 


MO, 


NYEARS, 


4 UC0STS(65,2), PATCHF(iOOO), 


PATCHPI 1000) 


, PROJLN, 


5 RLOCi 1000), SIM(7,5), 


SP(5,11), 


SP££DD(24), 


6 SPfcfcUN(24), SPLIT(2), 


SW0RK(7) , 


TRUCKS(2), 


7 V0LUM£(2), VTRATE(5,40J, 


Z0NEL(7,4J 




COMMON/ASSUME/ ALlGN<3,to), 


AACOST, 


COMVOT, 


I L)£T0UK(7J, JLIFE, 


FUEL(2) , 


HRS{7,24,4), 


2 HwORK(7), lOIR, 


INC, 


IPRINT, 


3 IWT, JPRINT, 


OCSCHL, 


OCWORK, 


4 0IL{2), QV£K(12,n, 


PCTADT{24,7, 


2,2>,PS(7,3,3), 


5 PSIRS, RATEI, 


RLIFE, 


SINDEX, 


6 SLIMIT(5), TCM0V6, 


TIR£S{2), 


TLEVEL(7), 


7 WALK, WIDTH, 


WEIGHT(i0,3) 




OIMENSIUN PAVE{3,3) 






DIMENSION ROAD (2, 3) 






DATA PAVE/« •,» BI»,» C«,' 


CONC 'TUMI', 


•OMPO', 'RETE', 


X«NuUS',«SITE«/ 






DATA ROAD/' 4 S'LANfcS' 6 S' 


LANE',' 8 •, 


•LANE'/ 


10 FORMATdHI,' TRAFFIC WARRANTS FOR 


PREMIUM PAVEMENTS •, 


X«R£yulRING REDUCED MAINTENANCE') 






11 FGRMATCIHO, 'ASSUMED VALUtS OF ANALYSIS VARIABLES') 


12 FORMATdHO, 'DESIGN:' ) 






13 FORMATCIH .'EXPRESSWAY TYPE..*.. 




•....*, 2A4) 


.A> t^ I \J 1^1 1 r^ 1 % A 1 V y m-m w\ I i ^ ^ >J -J VI r^ I V a ' i^ V V V W 9 

14 F0RMAT(1H , 'PAVEMENT TYPE. 




. ', 3A4) 


13 FORMATCIH .'ANALYSIS SECTION LEN 


GTH..... ...•• 


... . » ,F3.0, ' MILES' ) 


it) F0RMAT(1H »'LANE WIDTH.......... 




.... ' ,F4. 1, • FT. • ) 


17 FORMATUH, 'ANALYSIS PERIOD 




....•,12,' YEARS') 


18 F0RMAT(1H , 'DESIGN LIFE......... 




. . . .' ,F4. 1, ' YEARS* ) 


19 FORMATdH .'RESURFACED DESIGN LIPF 


......F3.0.' YEARS') 


20 F0RMAT(1H .'TERMINAL PSI VALUE-- 




..........* ,F3. I) 


^V/ 1 U<^llr%l 1J.I1 y li— OllXlir^W • J* m r\\^\J\m^ m m 

21 FORMATdHO, 'TRAFFIC:') 




• V V w vvvwvw yv t^ w Mf w 


22 FORMATdH ,' INITIAL VOLUME...... 




.. • ,16, « AADT' J 


23 FURMATIIH #• INITIAL COMMERCIAL.. 




.•,F4.1,* PERCENT') 


24 FORMATIIH .'INITIAL AM PEAK SPLIT 


-•,F4.l,' PERCENT') 


23 FORMATIIH .'FINAL VOLUME........ 




.. ' ,16, • AADT') 


26 FORMATdH , 'FINAL COMMERCIAL.... 




.•,F4.1,' PERCENT') 



204 



27 
28 
29 
30 
31 
32 
33 



FORMATI 

FORMATI 

FORMATI 

FORMAT 

FORMATI 

FORMAT 

FORMAT 

XF4.0,* 

34 FORMATI 
X»IS* ,18 

35 FORMAT 

36 FORMAT 

37 FORMAT 

38 FORMAT 
X» COM 

39 FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 

X18X, 'C 
62 FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 

X»:») 

72 FORMAT 

73 FORMAT 

74 FORMAT 

75 FORMAT 



40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 



63 
64 
65 
66 
67 
68 
69 
70 
71 



IH 

IH 

IH 

IH 

IH 

IH 

IHO 

KIP 

IH 

) 

IHO 

IHO 

IHO 

IH 

• 

IH 

IH 

IHO 

IHO 

IHO 

IH 

IH 

IH 

IH 

IH 

IH 

IH 

IH 

IH 

IH 

IH 

IH 

IH 

IH 

IHO 

IH 

IH 

IHO 

M 

IH 

IH 

IH 

IH 

IHO 

IHO 

IH 

IH 

IH 

IHO 

IHO 
IH 
IH 
IH 



•FINAL AM PEAK SPLIT •♦F4.1,* PERCENT* 

•NORMAL CAPACITY •,F5.0,« VEHICLES') 

•1 LANE CLOSED CAPACITY 'fFS-O,' VEHICLES') 

•2 LANE CLCSED CAPACITY • ,F5.0, • VEHICLES') 

•3 LANE CLCSED CAPACITY 'tFS.Ot' VEHICLES') 

•4 LANE CLCSED CAPACITY • ,F5.0, • VEHICLES') 

•THE AVERAGE WEIGHT OF A CCMMERCIAL VEHICLE IS', 

•) 

•THE HAXIf'UM ANNUAL 18-KIP AXLES WITHOUT ADJUSTMENT* 



•HOURLY DISTRIBUTION OF TRAFFIC) 
•INITIAL YEAR:») 

25X,^Af' PEAK DIRECTION*, 39X»PM PEAK 
•H0UR^,2{' WORK SC-REC PR BUS 

ALL')) 
116C •-•)) 
I3,IX,14F8.3) 
•YEARLY INCREMENT: •) 
•MAINTENANCE:^ ) 

• VARIABLE • ,45X, •ACTIVITIES CODE 
•DESCRIPTICN^ ,17X,7II0) 

lOlI •-•) ) 

•WORK LOCATION SPACING 

•WORKLCAC MODEL FACTOR 

•SIMULATICN WCRKLCAD 

•WORKLCAD OVERRIDE 

•MAINTENANCE LEVEL 

•TRAVEL TIME IN HOURS 

•CURE TIME IN HOURS... 

•TRAFFIC CONTROL HOURS 

•MAXIMUM ZONE LENGTH IN MILES... 
•MINIMUM ZONE LENGTH IN MILES... 
•ALLOWED CONTINUOUS CREW HOURS.. 
•ALLOWABLE VOLUME CAPACITY RATIO 
•PERFORMANCE STANDARDS:') 

•TRAVEL SPEED BETWEEN SITES 

•WALK SPEED BETWEEN SITES 

25X,^C N C R E T E^,18X,^B I T U 

P S I T E^l 

•ACTIVITY •,3<7X,^UNIT C0ST^,9X 

• CODE •,3(6X,'LAB+EQUIP MATER 
I20( •-•) ) 

I5,5X,9F12.2) 

•MOTORIST COSTS^ ) 

26X, • FUE L •, 9X, • 01 L',8X,^ TREAD WEAR 

24X,^$/GALLCN^,5X,^$/ QUART •,5X,«$/ 

•PASSENGER CARS • , lOX, F5.2 , 8X,F5.2, 

•CCMMERCIAL VEHICLES •, 5X , F5. 2, 8X, F 

•TOTAL OPERATING COSTS IN DOLLARS/ 



DIRECTION^ ) 

VAC. SCHOOL' 



NUMBER') 



7F10.2) 
7F10.2) 
7F10.2) 
7F10.2) 
7F10.2) 
7F10.2) 
7F10.2) 
7F10.2) 
7F10.2) 
7F10.2) 
7F10.2) 
7F10.2) 



...•,F3.0,» MPH^) 
...•,F3.0,^ MPH») 
M I N U S^, 



,• PRODUCT ION •) ) 
IAL«,6X, 'RATE' )) 



•) 

.001 INCH') 
2(9X,F5.2)) 
5.2,2(9X,F5.2)) 
1,000 VEHICLE HOURS', 



21 'SPEED PASSENGER COMMERCIAL 

2( 13X,«CARS^,8X,^VEHICLES^ ,6X) ) 

73{*-^)) 

21 I4,7X,F6.0,8X,F6.0,8X) ) 



)} 



205 



76 FORMAK IHO 

77 FORMATdHO 

78 FORMAK IHO 
X« SCHOOL 

79 FORMAK IH 

80 FORMAK IH 

81 FORMAK IH 

82 FORMAK IH 

83 FORMAK IH 

84 FORMAK IHO 

85 FORMAKIH 

86 FORMAKIH 

87 FORMAKIH 

88 FORMAK IHO 

89 FORMAKIH 

90 FORMAK IH 

91 FORMAKIH 

92 FORMAK IH 

93 FORMAK IH 

94 FORMAK IH 

95 FORMAK IH 

96 FORMAKIH 

97 FORMAK IH 

98 FORMAK IH 

100 FURMAK IH 

101 FORMAKIH 

102 FORMAK IH 

103 FORMAK IH 

104 FORMAKIH 

105 FORMAK IH 

106 FORMAK IH 

107 FORMAK IH 

108 FORMAKIH 

109 FORMAK IHO 

110 FORMAK IHO 

111 FORMAK IHO 

112 FORMAK IHO 

113 FORMAK IHO 
WRiTE(M0,10) 
WRITE(M0»111 
WRITE(M0,44) 
WRITE(M0,45) 
DO 1925 IH=1 
rtRITE|M0,107 

1925 CONTINUE 

WRITE(M0,10) 
WRITE(M0,112 
WRITE (MO, 109 
DO 1980 IW=1 
WRITE(M0,108 

1980 CONTINUE 

WRITE(M0,10) 
WRITE{M0»11) 
WRITE(M0,12) 



VALUE OF 
CQMyERCIA 
( 'MINUTES 
6X) ) 

SAVED' ,5 
10( •-•) ) 
( I5,F10.2 
SHOULDER 
DETCUP CA 
AVERAGE I 
OCCUPANTS 
OCCUPANTS 

V/C 
CLOSURE C 
SHOULDERS 
WORKSITE 
WORKSITE 
WORKSITE 
NUMBER CF 
WORKSITE 
DISTANCE 
DETOUR LE 
SPEED LIM 
NORMAL DE 
AVERAGE S 
DETOUR 01 

1 LANE 

2 LANE 

3 LANE 

4 LANE 
FREEWAY 



TIME SAVED IN DOLLARS/HOUR:') 
L VEHICLES = 8.72' ) 

WORK SOC-REC PER BUS VAC, 



CL 
CL 
CL 
CL 
S 



2X, 'SAVED* ) 

,F9.2,F10.2 
CAPACITY... 
PACITY 

NCOME LEVEL 

PER VEHICL 

PER VEHICL 

PATIC ',5X 

ATEGCRY',5 1 

OPEN TO TR 

SWITCH 

MULTIPLIER. 
SIZE ADD ON 
ITERATIONS 
SPACING SWI 
BETWEEN INT 
NGTH .*••••. 
IT ON OETQU 
TOUR VOLUME 
TOPS ON DET 
RECTIONAL L 
CSEO SPEED 
OSED SPEED 
CSED SPEED 
CSEO SPEED 
PEED LIMIT. 
0) 



,2F8.2,7X)) 



•fF 



CF MCTORIST... 
E ON WORK TRIPS 
E ON SCHOOL TRI 
,50('-' )) 
10) 

AFFIC ',7F 

•,7F 

•,7F 

• , 7F 

•,7F 

TCH ',7F 

ERCHANGES 



• •«•••••• 



5.0,' VEHICLES') 
5.0,' VEHICLES') 

',12) 

•,F4.1) 

PS ',F4.1) 



10.2) 
10.2) 
10.2) 
10.2) 
10.2) 
10.2) 
.',F5.2,' MILES') 



,F5.2, 



MILES') 
MPH' ) 
F5.2,' ADT') 



OUR.. 
ANES. 
LIMIT 
LIMIT 
LIMIT 
LIMIT 



.',F5.2) 
.•,F5.2) 

•,F5.2,' MPH* ) 

•,F5.2,' MPH') 

•,F5.2,' MPH') 

•,F5.2,' MPH') 

',F5.2,' MPH') 



PARTIAL ; LOCATION 



FULL DEPTH 
Fl6.2) 

OCCUPANCY HOURS INDICATED BY 1') 
RAYS') 

(MPH)' ) 



4,24X,7I1 
3,3F12.4) 
NO* ,3X, • 
10.2,7X,5 
AVAILABLE 
RANDOM AR 
IX, "SPEED 

) 

( J, J=l,7) 



,24 

) IH, ( IHCUR(IH,J),J=1,7) 



) 

) 

,1000,20 

)IW,PATCHF(IW) ,PATCHP(IW),RLOC(IW) 



206 



WRITE{M0,13) ( ROAD(J,KP) ,J=l,2) 
WRITE(M0,14) {PAVE(ITYPE,J),J=1,3) 
WRITF(M0,15)PRGJLN 
WRI TE(M0,16)WIDTH 
WRITE(M0,17)NYEARS 
WRI TE{M0,18)DLIFE 
WRITE(M0,19)RLIFE 
WRITE(M0,20)PSIRS 
WRITE(M0,21) 

I TE ST = ( VOLUME ( 1 ) +VOLUMEC 2 ) )*1000 
WRITE(Mn,22)ITEST 
TEMP1=TRUCKS( l)-HRUCKS(2) 
WRITE(M0»23)TEMP1 
TEMP2=SPLIT(1)+SPLIT(2) 
WRITE(M0,2A)TEMP2 

ITEST=ITEST+V0LUME12)*INYEARS-1)*10 00 
WRITE(M0,25>ITEST 

TEMP1 = TEMPH-TRUCKS(2)*(NYEARS-1) 
WRITE(M0,26)TEMP1 
TEMP2=TEMP2+SPLIT(2)*(NYEARS-1) 
WRITE(M0,27)TEMP2 
I=LANES+1 
TEMP1=CAP(I )*1000 
WRITE(Mn,28)TEMPl 
TEMP1=CAP(1)*1000 
WRITE(M0,29)TEMP1 
GOT0I1900) ,KP 
TEMP1=CAP<2)*100jO 
WRITE(M0,30)TEKP1 
GOTO(1900,1900) ,KP 
TEMP1=CAP(3)*1000 
WRITE(M0,31)TEMPl 
1900 CONTINUE 

TEMP 1=CAP( LANES )*1000 

WR[TE(M0,82)TEMP1 

T£MP1=DETOUR(5)*1COO 

WRI TF(M0,83)TEMP1 

WRITE(M0,95)DETCUR( 1) 

WRITE(M0,96)DET0UR(2) 

WRITE(M0,97)D£TCUP{3) 

WRITE(M0,98)DeTCUP(A) 

WRITE(MO,100)OETCLR(6) 

WRITE(M0,101)DETCUR(7) 

WRI TE(M0,106)SLIMITILANES+1) 

WRITE(MO,102)SLIMITa) 

WRITE{M0»103)SLIMIT(2) 

WRITE(M0»104)SLIVIT{3) 

WRITE(M0,105)SLIMIT(A) 

WRITE(MO,33)CWT 

ITEST=ARHO*1000000 

WRITE(M0,34)ITEST 

WRITE(MO,10) 

WRITE(M0,113) 

WRITE(MO,88){ J,J=1,5) 

N=LANES+1 



207 



WRITE(M0,88) 
WRITE(M0,87) 
DO 1950 1=1, 
VC=(I-i)*.l 
1950 WRITE(Ma,llO 
WRXT£(MU,IO) 
WRITE(MU,35) 
WRIT£(M0,36) 
WRITE (MO, 37) 
WRITE(M0,38) 
WRIT£(M0,39) 
00 1910 IH=1 
WRIT£(MU,40) 

1910 CONTINUE 
WRITE(MU,41) 
DO 1911 IH=i 
WRIT£(M0,40) 

1911 CONTINUE 
WRITE(M0,10) 
WRIT£(M0,11) 
rtRITE(M0,42) 
WRITE(M0,43) 
WRITE(M0,44) 
WRIT£(M0,45) 
WRITE! MG, 46) 
WRIT£(M0,47) 
WRIT£IM0,48) 
WRITE(M0,49) 
WRITE{M0,50) 
WRITE(M0,51) 
WKIT£(M0,52) 
WR1TE(M0,53) 
WRIT£(M0,54) 
WRIT£(M0,55) 
WRITE(M0,56) 
WRIT£(M0,57) 
WRITE(M0,89) 
WRIT£(M0,90) 
WRIT£(M0,91) 
WRITE{M0,92) 
WRIT£(M0,93) 
WRIT£(M0,94) 
WRIT£{M0,58) 
WRITE(M0,59) 
WRIT£{M0,60) 
WRITE(M0,61) 
WRIT£(M0,62) 
WRIT£(M0,63) 
WRITE(M0,64) 
00 1920 IA=1 
WRITE(M0,65) 

X(PS( IA,3,J) , 
1920 CONTINUE 

rtRITEIMO,10) 



{J,J=1,N) 

11 

)VC, (SP(J,I) ,J=1,N) 



,24 

IH,(PCTA0T(IH,J,1,1) ,J=1,7),(PCTA0T(IH,J,2,1),J=1,7) 



,24 

IH,(PCTAOT( IH,J,1,2),J=1,7), (PCTADTl IH, J, 2,2), J= 1,7) 



(J,J=i,7) 




(UVER(2, J) 


,J=1,7) 


(0VER(3, J) 


,J=i,7) 


(SWORK(J),. 


J=l,7) 


(0V£R(4, J) 


rJ=l,7) 


(0VER(6, J) 


,J=1,7) 


(0VER(5, J) 


rJ=l,7) 


{0VER(7, J) 


,J=1,7) 


(0VER{8, J) 


rJ=l,7) 


(0V£R(9, J), 


rJ=l,7) 


tOV£R(ll,J 


>,J=1,7) 


(OVERd, J) 


,J=1,7) 


(0VER(10,J 


), J=l,7) 


(OVER( 12,IA),IA=1, 


(SIM(IA,1) 


rIA=l,7) 


(SIM(IA,2) 


rIA=l,7) 


(SIM{IA,3) 


,IA=1,7) 


(SIM(IA,4) 


,IA=1,7) 


(SIM(IA,5) 


rIA=l,7) 


TCMOVE 




WALK 





7) 



,7 

IA,(PS{IA,l,J),J=l,3),(PS{lA,2,J),J=i,3), 

J=l,3) 



i 



208 



WRITE(Ma,66) 

WRITE<M0,67) 

WRITE(M0,68) 

WRITe(MU,69)FUEL(l) , 01 L { 1 ) , T IRE S ( 1 ) 

WRITE(M0,70) FUEL(2) ,0IL(2J,TIRES(2) 

WRITE(M0,71) 

WRITE(M0,72) 

WRITE(M0,73) 

WRIT£(MU,74) 

00 1930 1=1,32 

IS=I+32 

WRIT£(M0,75J I, (OCOSTS( I,J),J=i,2),IS,(0C0STS(IS,J),J=i,2) 
1930 CONTINUE 

WRITE(MO,10) 

WRITE{MQ,66) 

WRITE ( MO, a4J INC 

WRITE(MU,35)0C*^0RK 

WRITE(M0,86)0CSCHL 

*^RITE(M0,76) 

WRITE(M0,77) 

WRITE(M0,78) 

WRITE<M0,79) 

WRITE(MO,80J 

DO 1940 1=1,20 

IT=I+20 

WRITE(M0,81J I, (VTRATE(J, I) , J = l , t>) , I T , ( VTRATE ( J , I T) ,J = 1,5) 
1940 CONTINUE 

RETURN 

END 



209 



C«*»*5!c«#«*««<c*««:«:*« SUBROUTINE YEA 

Q****««*****««***** PROGRAM 'EAROMAR 

c 






SUBROUTINE YEAR 
INTEGER C0STS(7,5,8,2) 
COMMON 

1 CWT, 

2 IH0UR(24,7), 

3 LANES, 

4 0C0STS{63,2), 

5 =lLOC(iOOO), 

6 SPEEDN(24), 

7 V0LUME(2) , 
COMMON/ASSUME/ 

1 DET0UR(7), 

2 HW0RK(7) , 

3 IWT, 

4 0IL{2), 

5 PSIRS, 

6 SLIMIT(5), 

7 WALK, 

INTEGER TJTALA(8) ,TaTALY(8) 
DIMENSION IT0TAL(5,8,2) 
0IME^iS10N 0IRECT(2,3) 

DATA DIRECT/' AM •,«PEAK«,« 
DO 2001 1=1,8 
TOTALAd ) = 
2001 CONTINUE 

PSIASN=4.5 

RAGE=0 

AAXLES=0 



ARHO, 


CAP(i>), 




COSTS, 


DV0L(24), 


HV0L(24), 




ID, 


ITYPE, 


lY, 




KP, 


MI, 


MO, 




NYEARS, 


PATCHF( 1000), 


PATCHPdOOO), 


PROJLN, 


SIM(7,5), 


SP(5,11), 




SPEE00(24), 


SPLIT(2), 


SW0RK{7), 




TRUCKS(2), 


VTRATE(5,40), 


Z0NEL(7,4) 






ALIGN (3,6), 


AACOST, 




COMVOT, 


DLIFE, 


FUEL(2), 




HRS(7,24,4) 


lOIR, 


INC, 




IPRINT, 


JPRINT, 


OCSCHL, 




OCWORK, 


0VEK(12,7), 


PCTA0T(24, 


7,2, 


r2),PS(7,3,3), 


RATEI, 


RLIFE, 




SINOEX, 


TCMOVE, 


TIRES(2), 




TLEVEL(7), 


WIDTH, 


WEIGHT( 10, 


3) 





PM 



'PEAK 



C 



*«*THIS ANALYSIS IS PERFORMED FOR NYEARS 



DO 2000 IY=1, NYEARS 

INCREMENT VOLUME FOR EACH YEAR 
VQLUME(1)=V0LUME(1)+V0LUME(2) 



210 



C ***DETERMINE THE ANNUAL COMMERCIAL TRAFFIC 18 KIP AXLE LOADINGS 

AAXLES=AAXLES+CV0L*.365*.7 35/2 
C 
C ♦♦♦ANALYSIS AGE IS EQUAL TO ANAYSIS YEAR MINUS PAVEMENT RESURFACED YEAR 

2323 AGE=IY-RAGE 
C 
C ♦♦♦TEST THE PREDICTED ACCUMULATED AXLES AGAINIST ACTUAL ACCUMULATED AXLES 

IF( AGE^ARHO.GT.AAXLES)GOTO 2326 
C 
C ♦♦♦BASE ANALYSIS AGE ON ACTUAL AXLES 

AGE=AAXLES/ARHO 
C 
C ♦♦♦COMPUTE PSIf PSIASN=INITIAL PSI, OLIFE=OESIGN L I FE, AGE=ANALYS IS AGE 

2326 PSI=PSIASN-( ( ( PS I ASN-1. 5 ) /OL IFE ) ♦AGE ) 

2349 CONTINUE 
C 
C ♦♦♦ANALYSIS AGE IS ASSUMED RELATED TO LINEAR LOSS IN PSI OVER ZQ YEARS 

AGE=20^(PSIASN-PSI J/(PSIASN-1.5) 
C 
C 

C ♦♦♦TEST PSI TO DETERMINE IF PAVEMENT SHOULD BE RESURFACED 
C **«iF PAVEMENT IS DUE FOR RESURFACING SET MAINTENANCE LEVEL E^UAL TU I 
C 

IF(PSI.LE.PSIRS)0VER(6f 7)=1 
C 
C 

C ♦♦♦DEVELOPMENT OF ANNUAL WORKLOAD FOR ACTIVITIES 
C 
C 
C ♦♦♦DETERMINE THE TYPE OF ROADWAY, CONCRETE, 3 ITUMINOUS OR COMPOSITE 

GOTO (2101,2102,2103), ITYPE 
C 

c 

C ♦♦CONCRETE WORKLOAD ANALYSIS 
C 

c 

2101 CONTINUE 
C 
C ♦♦♦GET EACH ACTIVITY 

DO 2104 IA=1,7 
C 
C ♦♦♦INITIALIZE WORK A TEMPORARY VARIABLE TO HOLD ANNUAL WORKLOAD BY ACTIVITY 

WORK=0 % 

C 
C ♦♦♦TEST TO SEE IF MAINTENANCE LEVEL IS ZERO MEANING NO WORKLOAD 

IF(0VER(6,IA).EQ.0)G0T0 2104 
C 
C ♦♦♦BRANCH TO THE APPROPRIATE ACTIVITY MODEL 

GOTO (2120,212 5,2130,2135,2140,2108,2195) ,IA 
C 

C ♦♦♦FULL DEPTH CONCRETE PATCHING MODEL 
2120 W0RK=0VER(3, IA)^34^( 1/ ( l+EXP (-l^ ( ( AGE- 10) /I. 25) ) )) 

GOTO 2108 
C 



211 



C*** INCREMENT % COMMERCIAL FOR EACH YEAR 
TRUCKS (i)=TRUCKS( l)+TRUCKS(2) 



C**« INCREMENT AM AND PM DIRECTIONAL SPLIT FOR EACH YEAR 
SPLIT(i)=SPLIT(l)+SPLIT(2) 
DO 20iO 10=1,2 
DO 2011 IT=1,7 
DO 2012 IH=1,24 
C 
C«** INCREMENT DISTRIBUTION OF TRAFFIC FOR EACH YEAR 

PCTADT(IH,IT»ID, 1)=PCTA0T( iH,IT, ID, 1 } +PCTADT ( IH , I T, I 0, 2) 
2012 CONTINUE 
N=LANES+1 
00 2020 IC=1,N 
00 2021 1=1,8 
C 

C*** INITIALIZE COSTS TO ZERO FOR LACH YEAR 
COSTS! IT,IC,I,ID)=0 
2021 CONTINUE 
2020 CONTINUE 
2011 CONTINUE 
2010 CONTINUE 
C 

c 

C 

c 
c 
c 
c 
c 
c 
c 
c 

c 
c 

c 



SUBROUTINE AWORKL 
***NOTE: OPTION TO TRANSFER 
*** 1. PSI VALUE, 'PSI* OR 
*** 2. ACCUMULATED 18 KIP AXLES, 'AXLE* 



♦♦♦DETERMINE THE PSI AND ANALYSIS AGE FOR YEAR 

♦♦♦INITIALIZE THE PRESENT SERVICEABILITY INDEX TO ZERO EACH YEAR 
PSI = 

♦♦♦TEST TO DETERMINE IF A PSI HAS BEEN TRANSFERED FROM A CALLING PROGRAM 



C 

C 

c 
c 
c 

c 
c 



IF(PSI.EQ.0)GOTO 2310 
GOTO 2349 

♦♦♦INITIALIZE THE TRANSFER ACCUMULATED 18 KIP VARIABLE TO ZERO 
2310 AXLE^O 



I 

♦♦♦TEST TO DETERMINE IF 'AXLE' HAS BEEN TRANSFERED FROM A CALLING PROGRAM 

IF{AXL£.EQ.O)GOTU 2320 

♦♦♦ASSIGN TRANSFERED VALUE FOR AXLE TO VARIABLE FOR ACCUMULATED 13 KIP AXLES 
AAXLES=AXLE 
GOTO 2i2^ 

♦♦♦DETERMINE THE DAILY COMMERCIAL TRAFFIC VOLUME FOR ANALYSIS YEAR 
2 32 CVUL=TRUCKS{ I ) ♦VOLUME! 1 ) /lOO 



i 



212 



C ***PARTIAL DEPTH CONCRETE PATCHING 

2125 WORK=HWORK( 1) 
C 
C ***IT IS ASSUMED THAT PARTIAL DEPTH PATCHING CANNOT EXCEED ONE CUBIC YARD 

IF(WORK.GT.l)WORK=l > 
C ***UEDUCT PARTIAL DEPTH PATCHING FROM ACCUMULATED FULL DEPTH PATCHING 

HWJRKC IJ =HWORK{ 1 )-w6rK 
C 
C **«FACTOR WORKLOAD IF APPLICABLE 

W0RK=WORK*OV ER ( 3 , I A ) 
C 
C ***TEST FOR OVERRIDE WORKLOAD RATE 

IF(0VER(^tIA).N£.0JW0RK=0VER(4»IAJ 
C 
C ♦**CUNVERT PARTIAL PATCHING TO SQUARE FEET AND ACCUMULATE 

HWORKI IA)=HWORKi IA)+W0RK*9 
C 

GOTO 2104 
C 

C ***CONCRETE BLOWUPS 
C 
C *«*ASSUM£D THAT THERE ARE NO BLOWUPS PRIOR TO FIFTH YEAR 

2L30 IF( IY.LT.5)G0T0 2104 
C 
C ***IT IS ASSUMED THAT THERE WILL BE NO BLOWUPS AFTER 25 YEARS 

IF(IY.GT.25)G0T0 2 L04 
C 

C «*«BLOWUP MODEL FOR BETWEEN 5 AND 25 YEARS 
2131 WURK=.005*( IY-4)*0VER{3, lA) 

GOTO 2108 
C 

C *** JOINT SEALING MODEL 
2135 WORK = 52d0/OVER(2, I A) *W IDTH«OVER( 6, I A )*OVER( 3, I A) 

GOTO 2108 
C 
C ***TEMP3 IS THE PORTION OF THE TOTAL MUDJACKING TO BE DONE EACH YEAR 

2140 TEMP3=.2 5*( . 5*1 Y )«*2*EXP (-.5*1 Y) 
C 
C **«ANNUAL MUDJACKING LOCATIONS 

W0RK=TEMP3*52.8/0VER<2,I A)*OVER( 3,IA) 
C 
C ***OVER RIDE WORKLOAD RATE FOR ANY ACTIVITY 

2108 IF (OVER (4, I A ) . N£ .0 ) WORK=OVER (4, I A) 
C 
C ***ACCUMULATED WORKLOAD FOR ANY ACTIVITY 

HWORKI IA)=HWORK( IA)+WORK 
2104 CONTINUE 

GOTO 2199 
C 
C 

C ***BITUMINOUS WORKLOAD ANALYSIS 
C 
C 
2102 CONTINUE 



213 



c 

C *«*GET EACH ACTIVITY 

00 2105 IA=l,7 
C ♦♦♦INITIALIZE WORK A TEMPORARY VARIABLE TO HOLD ANNUAL WORKLOAD BY ACTIVITY 

WORK=0 
C 
C ♦♦♦TEST TO SEE IF MAINTENANCE LEVEL IS ZERO MEANING NO WORKOAD 

IF(OVER( 6, IA).EQ.OJGOTO 2105 
C 
C ♦♦♦BITUMINOUS WORKLOAD AGE FACTOR MODEL 

FACTl=(l/(H-EXP((-AG£+iO)/i.l6))) 
C 

C ♦♦♦BRANCH TO THE APPROPRIATE ACTIVITY MODEL 
C 

GOTO (2 150, 2 1 55, 2 16 0,2109,2109, 2 109, 2195) ,IA 
C 

C ♦♦♦BITUMINOUS PATCHING WORKLOAD 
2150 W0RK=FACT1^1100^0VER(3,IAJ 

GOTO 2109 
C 

C ♦♦♦CRACKSEALING WORKLOAD 
2155 WORK=FACT1^1000^0VER.(3,IA) 

GOTO 2109 
C 

C ♦♦♦BITUMINOUS BASE AND SURFACE REPAIR' WORKLOAD 
2160 W0RK=FACT1^0VER(3,IAi^5 

GOTO 2109 
2109 CONTINUE 
C 
C ♦♦♦OVER RIDE WORKLOAD RATE FOR ANY ACTIVITY 

IF(0V£R(4,IA).NE.0)WQRK=0VER(4,IAJ 
C 
C ♦♦♦ACCUMULATED WORKLOAD FOR ANY ACTIVITY 

HWORK(IAJ=HWORK( IA)+WORK 
2105 CONTINUE 

GOTO 2199 
C 

c 
c 

C ♦♦♦COMPOSITE WORKLOAD ANALYSIS 
C 
C 
C 
2103 CONTINUE 

FACT1={1/(1+EXP( (-AGE+10)/1.16)) ) 
C 

C ♦♦♦GET EACH ACTIVITY 
C 

DO 2106 IA=1,7 
C ♦♦♦INITIALIZE WORK A TEMPORARY VARIABLE TO HOLD ANNUAL WORKLOAD BY ACTIVITY 

WORK=0 
C 
C ♦♦♦TEST TO SEE IF MAINTENANCE LEVEL IS ZERO MEANING NO WORKLOAD 

IF«0VER(6,IA).EQ.0)G0T0 2106 



214 



c 

C ***BRANCH TO THE APPROPRIATE ACTIVITY MODEL 
C 

GOTO (^17 0,2 1 10, 2 180, 2 185, 2 19 0,21 10, 2 195) ,IA 
C 

C ***UVERLAY PATCHING MODEL 
2170 WORK=FACTi*ilOO*OVERr3,IAj 

GOTO 2110 
C 

C *««OVERLAY BLOWUP MODEL 
C 
C ***ASSUMED THAT THERE ARE NO BLOWUPS PRIOR TO FIFTH YEAR 

2180 IF( IY.LT.5JG0T0 2106 
C 

C **«IT IS ASSUMED THAT THERE WIL BE NO BLOWUPS AFTER 25 YEARS 

IF(IY.GT.25)G0T0 2106 
C 
C 
C ***BLOWUP MODEL FOR BETWEEN 5 AND 25 YEARS 

2181 W0RK=.005*( IY-4)*0VER(3,IA) 
GOTO 2110 

C 

C ***CRACKSEALING MODEL * 
2185 WORK=FACT1*1000*OVER (3,1 A) 

GOTO 2110 
C 
C ♦**ThMP3 IS THE PORTION OF THE TOTAL MUDJACKING TO BE DONE EACH YEAR 

2190 TEMP3=.25*(.5*IY)**2*EXP(-.5*IY) 
C 
C «**ANNUAL MUDJACKING LOCATIONS 

W0RK^T£MP3*5 2.8/OV£R(2,IA)*0V£R(3,IA) 

GOTO 2110 
C 

C ***OVER RIDE WORKLOAD RATE FOR ANY ACTIVITY 
C 

2110 IF(0VER(4,IA).NE.0)W0RK=0VER{4,IA) 
C ***ACCUMULATEO WORKLOAD FOR ANY ACTIVITY 

HWORK(IA)=HWORK( IA)+WORK 
2106 CONTINUE 

GOTO 2199 
C ***SET RAGE, THE YEAR OF PAVEMENT RESURFAC I NG,EQUAL TO ANALYSIS YEAR 
C 

2195 RAGE=IY 
C 
C «**COMPUTE RESURFACING WORKLOAD 

HWURK(IA)=586*67*WI0TH*0VER(3,IA) 
C 
C ***SET ACCUMULATED 18 KIP AXLES EQUAL TO ZERO 

AAXLES=0 
C 
C ***RESET DESIGN LIFE TO RLIFE, THE RESURFACED DESIGN LIFE 

0LIFE=RLIFE 
2199 CONTINUE 
C RETURN 



215 



C END 

C 

C 

C 

C **«THIS IS A ROUTINE AT THE DIRECTION LEVEL 

C 

C 

C 

UO 2030 10=1,2 
C 
C ***INITIALIZE TEMPI FOK EXCESS VOLUME TO ZERO 

TEMP 1=0 
C 

DO 2031 IH=1,24 
C 
C ♦♦♦DETERMINE THE HOURLY TRAFFIC VOLUME ON THE FREEWAY 

HVOL( IH)=VOLUME( 1) ♦A3S( I 0- 1-SPL I T ( 1 ) / 100 ) ♦PCTADT ( IH, 7 , 1 D, 1 ) 
X+TEMPl 
C 
C ♦♦♦DETERMINE NORMAL FREEWAY CAPACITY 

CAPACT=CAP{LAN£S+i)^Il-PCTADT( IH,6,I0, 1) ) 
C • 

C ♦♦♦TEST TO DETERMINE IF HOURLY VOLUME EXCEEDS NORMAL CAPACITY 
C ♦♦♦AND IF IT DOES HOLD EXCESS IN TEMPI 

IF(HVOL(IH).GT.CAPACT)TEMPi=HVOL(IH)-CAPACT 
C 
C ♦*#L£T THE HOURLY NORMAL VOLUME BE THE ACTUAL VOLUME LESS TEMPI 

HV0L(IH)=HV0L(IH)-TEMP1 
C 
C ♦♦♦UETERMIN V/C SUBSCRIPT 

I=(HVUL( IH)/CAPACT*.15)^10 
C 
C ♦♦♦ASSIGN A SPEED TO THE HOUR 

SPEEDiM(IH)=SP(LANES+l,I) 
C 
C ♦♦♦DETERMINE THE HOURLY TRAFFIC VOLUME ON THE DETOUR 

DVOL( IH)=HVOL( IH)^DETOUR ( 4) /VOLUME ( 1 ) 
C 
C ♦♦♦DETERMINE NORMAL DETOUR CAPACTITY 

CAPACT=D£T0UR<5)^{ 1-PCTADT ( IH,6, ID,1)) 
C 
C ♦♦♦DETERMINE V/C SUBSCRIPT 

I={OVOL( IH)/CAPACT+.15)^10 
C 
C ♦♦♦SUBSCRIPT CANNOT EXCEED ELEVEN 

IFII.GT. 11)1=11 
C 
C ♦♦♦ASSIGN A SPEED TO THE HOUR FOR DETOUR 

SP£EDD(IH)=SP(LANES, I) 
2031 CONTINUE 

CALL MAINT 

CALL MOTOR 
2030 CONTINUE 
C 



216 



C ***TEST FOR RESURFACED ROADWAY 

IF(0VER(6,7).NE.i)G0T0 2040 
C 
C **frSET MAINTENANCE LEVEL EQUAL TO ZERO 

aVER(6»7)=0 
C ***RESET THE INITAIL PSI TO 3.6 , THIS IS 80^ OF THE NEW PAVEMENT VALUE 

PSIASN=3.6 

DO 2035 IA=1,7 

HWORK(IA)=0 
2035 CONTINUE 

IFIITYPE.NE.DGOTO 2040 
C 

C ***MAKE THE FOLLOWING CONVERSIONS FOR CONCRETE PAVEMENT 
C ***T0 REFLECT THAT PAVEMENT TYPE IS NOW COMPOSITE 
C 
C ***COMPOSITE PAVEMENT IS iTYP£=3 

ITYPE=3 
C 
C *««SET THE MAINTENANCE LEVEL FOR PARTIAL DEPTH PARTCHING TO ZERO 

0VER(6,2)=0 
C 
C **«SET THE SIMULATION FACTOR TO TEN FOR BITUMINOUS PATCHING 

SIM{i,2)=l0 
C 
C ***SET THE MAINTENANCE LEVEL FOR JOINT SEALING TO ANNUAL 

0VER(6,4)=1 
2040 CONTINUE 
C 
C ***THIS IS. A ROUTINE TO COMPUTE ACCUMULATED ACCIDENTS AND POLLUTION 

N=LANES-H 

00 2050 I0=i,2 

DO 2051 IC=1,N 

DO 2052 IA=l,7 

COSTS ( IA,IC,4,I0)=C0STS( IA,IC,3, ID) *100/AAC0ST 

COSTS! IA,IC,7,I0)=C0STS( I A, I C, 7, ID)* 100/ ( VOLUME ( 1)*PR0JLN) 
2052 CONTINUE 
2051 CONTINUE 
2050 CONTINUE 
C 
C 

C SUBROUTINE PRINT 
C 
C 

101 F0RMAT(IH1,25X,» TRAFFIC WARRENTS FOR PREMIUM PAVEMENTS *i 
X'REQUIRING REDUCED MAINTENANCE') 

102 FORMATdH ,25X , ' ANAL YS IS YEAR: •, 14, 31X ,• DIRECT ION •,2A4) 

103 FORMATdHO, 'ACTIVITY CLOSURE MAINTENANCE £ OPERATION', 
XlOX, 'ACCIDENTS'jllX, 'LOSS T I ME • , 7X , • POLLUT ION' ,9X, 'TOTAL') 

104 FORMATdH ,' NUMBER CATEGORY REHABILITATION COSTS ', 
X' COSTS #X100' ,5X, 'COSTS HOURS .01 DAYS', 9X, 
X'COSTS') 

105 FORMATdH ,119('-' )) 

106 FORMATdH , 14, 1 1 1, 8X , » $ • , I 9, 7X, • $ • , I 8,5X , » $• ,21 7,3X , •$ ' , 18, I 9, 
XI11,8X,'$' ,109) 



217 



10 7 FORMAT (IH , 2 X, 'TOTAL', I8,8X,'$«,I9,7X»'$«,I8,5X,«$S2I7,3X,'$', 
Xia,I9,ill,8X,»$« ,109) 

108 FORMATdH , 'MINIMUM COSTS ' , 5X, • $• , I 9, 7X , • $' , I 8, 5X , • $' ,217 , 
X3X,'$' ,18,19, I11,8X, •$' ,109) 

109 FURMATdH , 'DISCOUNTED COSTS • , 5X , ' $• , I 9, 7X, ' $• , I 8, 5X , • $• ,2 I 7 , 
X3X,'$' ,I8,I9,I11,8X, *$• , 109) 

110 FORMATdH ,' ACCUMULATED COSTS • , 5X , • $• , I 9, 7X, • $ ' , I 8, 5X , • $• ,21 7 , 
X3X,'*' ,18, I9,I11,8X,'$' ,109) 

111 FORMATdH ) 

112 FORMATdHO,' MAINTENANCE 6 OPERATION', 
XI OX, 'ACCIDENTS' ,11X, 'LOSS TIME',7X, 'POLLUTION' ,9X, 'TOTAL') 

113 FORMATdH ,' REHABILITATION COSTS ': 
X' COSTS #X100» ,5X, 'COSTS HOURS .01 DAYS', 9X, 
X'COSTS') 

115 FORMATdHO,'*** SIGNIFIES THAT ROAD CANNOT BE OCCUPIED WITHIN', 
X' V/C CONSTRAINTS') 
DO 5100 1=1,8 
DO 5101 ID=l,2 
N=LANES+1 
00 5102 IC=l,N 
ITOTALdC,I,ID)=0 
5102 CONTINUE 
5101 CONTINUE 

TOTALY( I ) = 
5100 CONTINUE 

DO 5110 ID=1,2 
OD 5111 IA=1,7 
1=1 

N=LAN£S+1 
C 

C ***ACCUMULATE TOTAL COST BY ACTIVITY AND CLOSURE AND 
C ***ACCUMULAT£ TOTALS FOR EACH COST ITEM tiY CLOSURE 
DO 5112 IC=1,N 

COSTS ( IA,IC,8,ID) = C0STS( IA,IC,5,ID) 
DO 5113 K=l,3 

COSTS( IA,IC,8,ID)=CUSTS(IA,IC,8,ID)+C0STS(IA,IC,K, ID) 
ITOTALdCK, ID) = ITOTAL(IC,K, ID)+COSTS( IA,IC,K, ID) 

5113 CONTINUE 

DO 5114 K=4,8 

ITOTALdCK, ID ) = ITOTALdCK, ID)+COSTS( IA,ICK, ID) 

5114 CONTINUE 
C 

C *«*HOLD LANE CLOSURE SUBSCRIPT FOR MINIMUM COST 

IF I COSTS d A, IC,8,ID).LT.C0STS( lA , I , 8 , I D) ) I = IC 
5112 CONTINUE 
C 
C ***ACCUMULATE AND HOLD MINIMUM COST 

DO 5115 K=l,8 

TOTALY(K) = TOTALY(K)+COSTS( IA,I ,K,ID) 

5115 CONTINUE 
5111 CONTINUE 
5110 CONTINUE 

C 

C ***TtST FOR PRINT LEVEL 



218 



c 


♦ ** 


c 


«»* 


c 


♦ ** 


c 


♦ ♦♦ 


c 

c 


**« 



1. DIRECTION DETAIL 

2. YEAR DETAIL 

3. YEAR SUMMARY 

4. ANALYSIS SUMMARY 
GOT0(5010f 5020,5000, 5000), IPRINT 

***DIRECTIUiM DETAIL PRINT ROUTINE 

5010 CONTINUE 

DO 5011 ID=l,2 
IP 1 = 

5014 WRITE(M0,10U 
WRITE(M0,102)IY, ( DI RECT ( J , ID ) , J= 1, 2) 
IF(ID.GT.2)ID=1 

WRITE(M0,103) 

WRITE(MD,104) 

^^RITE(M0,105) 

DO 5012 IA=i,7 

N=LANES+1 

00 5013 IC=1,N 

V^RITE(M0,106)IA, IC,(C0STS( IA,IC,J,ID),J=l,a) 
5013 CONTINUE 
5012 CONTINUE 

WRITE(M0,105) 

WRITE(MO,lll) 

N=LANES+1 

DO 5015 IC=1,N 

WRITE{MO,107)IC, (ITOTALi IC,J,IDJ ,J=1,8) 

5015 CONTINUE 
WRITE{MU,111 ) 
WRITE{M0,111) 
WRITE(M0,115) 

5011 CONTINUE 
C 

C ***YEAR DETAIL PRINT ROUTINE 

5020 CONTINUE 
WRITE(M0,I01} 

WRITE(M0,102)IY, (DIRECTtJ,3) ,J=1,2) 
WRITE(M0,103) 

WRITE{MO,104) 

»^RITE(MG,105) 

DO 5021 IA^1,7 

N=LANES+i 

DO 5022 IC=1,N 

DO 5023 J=l,8 

COSTS! I A, I C, J, l)=CUSTS(IA,IC,J,l)+COSTS{ IA,IC, J,2) 
5023 CONTINUE 

WRITE(M0,106)IA,IC,(C0STS(IA,1C, J, I) ,J=1,8) 
5022 CONTINUE 

5021 CONTINUE 
WRITE(M0,105) 
WRITE(M0,111) 
N=LANES+1 

00 5024 IC=1,N 
DO 5025 J=l,8 



219 



ITOTAL(IC,J,l) = ITOTAL(IC,J,l)*ITaTAL( IC, J,2) 

5025 COIMTINUE 

WRITE (MO, 107) ICf (ITOTALdCJfDf J=l,8) 
5024 CONTINUE 

WRITE(M0,I05) 

GOTO 5026 
C 
C ***SUMMARY HEADER PRINT ROUTINE 

5000 CONTINUE 
C 
C ***PRINT SUMMARY HEADER ONLY ONCE 

GOTO(5027,5026), lY 

GOTO 5026 

5027 WRITEJMO.lOl) 
WRITE (MO, I 12) 
WRITE(M0,113) 
WRITE{M0,105) 
WRITE(M0,11I) 

5026 CONTINUE 
C 

C ***TEST FOR YEARLY SUMMARY PRINT 

5028 IF(IPRINT.GT.3)G0T0 5029 
WRITE(M0,111) 
WRITE(MO,108)(TOTALY(J),J=1,8). 

C 

C ***OISCOUNT MiNIMUM COSTS 

5029 CONTINUE 
A=(H-RATEI)**IY 
TOTALY{l)=TOTALY(l)/A 
T0TALY(2)=TOTALY(2)/A 
TOTALYI3)=TOTALY{3)/A 
T0TALYi5)=T0TALY(5)/A 
T0TALYC8)=T0TALY(8)/A 

C 

C ***ACCUMULAT£ DISCOUNTED COSTS 

DO 5030 J=l,8 

TOTALA(J)=TOTALA(J)+T0TALY(J) 

5030 CONTINUE 
C 

C ***TtST FOR YEARLY SUMMARY PRINT 
IFUPRINT.GT.3)G0T0 2000 
WRITE(M0,109)(TOTALY{J),J=l,8) 
WRITE ( MO , I 10 ) ( TOTALA ( J ) , J= I , 8) 
WRITE(M0,105) 

5031 CONTINUE 
2000 CONTINUE 

C 

C **»PRINT ANALYSIS SUMMARY 

WRITE(M0,110)(TOTALA{J),J=l,8) 
C RETURN 

RETURN 

END 



220 



c 
c 

£♦»*♦♦♦*♦»♦♦♦**♦**»* SUBROUTINE MAINT «<c*#«««««*«*««* 

(;♦♦♦♦*♦«*♦***♦****♦* itcA^^^Xcit'^^^ «:«=««« 

Q*««*««««****"J=«***** PROGRAM 'EARGMAR* «*«»«««***«*«« 

c 

SUBROUTINE MAINT 
INTEGER C0STS(7,5,8,2) 



COMMON 


ARHO, 


CAP(5), 




COSTS, 


I CWT, 


0V0L{24), 


HV0L(24), 




ID, 


2 IHQUR(24,7), 


I TYPE, 


lY, 




KP, 


3 LANES, 


MI, 


MO, 




NYEARS, 


4 GC0STS(65,2J, 


PATCHF< 1000), 


PATCHPI 1000), 


PRGJLN, 


5 RLOC(iOOO), 


SIM{7,5), 


SP(5,IU, 




SPE£D0(24) , 


6 SPEEDN(24), 


SPLIT(2), 


SW0RK(7) , 




TRUCKS(2), 


7 VOLUME! 2), 


VTRATt(5,40J, 


Z0NEL(7,4) 






COMMON/ASSUME/ 


ALIGN (3,6), 


AACOST, 




COMVOT, 


1 OETOURC 71 , 


DLIFE, 


FUEL(2i , 




HRS(7,24,4), 


2 HW0RK17), 


IDIR, 


INC, 




IPRINT, 


3 IWT, 


JPRINT, 


OCSCHL, 


• 


OCWORK, 


4 0IL(2), 


OVER (12,7), 


PCTA0T{24, 


7,2,2) 


,PS(7,3,3) , 


5 PSIRS, 


RATEI, 


RLIFE, 




SINDEX, 


6 SLIMITt5)f 


TCMOVE, 


TIRES(2), 




TLEVEL(7), 


7 k^ALK, 


WIDTH, 


WEIGHT! 10, 


3) 





DIMENSION CREWH(4),JH0UR(24) .NOT I ME (4) 

00 3010 IA=i,7 
C ***TEST TO DETERMINE IF THERE IS ANY WORKLOAD 

IF(HWORK(IA) .EQ.O)GOTO 3010 
C 

C**« DETERMINE A FACTOR FOR THE LEVEL OF MAINTENANCE 
C*** THE LEVEL OF MAINTENANCE FACTOR MUST BE AN INTEGER NUMBER 

NA=0VER(6,IA) 
C 
C*** TEST TO DETERMINE IF WORKLOAD WILL BE DONE AT LEAST ONCE IN YEAR 

IF(NA.GE.1)G0T0 3021 
C 
C ***ACCUMULATE MAINTENANCE LEVEL IN FIRST DIRECTION 

IF(ID.£Q,1)TLEVEL(IA)=TLEVEL( I A) *-OVER ( 6, I A) ♦.001 
C 
C*** TEST TO DETERMINE IF ACTIVITY WILL BE PERFORMED IN ANALYSIS YEAR 

IF(TLEVEL(IA).LT.1)G0T0 3010 . 
C 
C*** RESET THE ACCUMULATED MAINTENANCE LEVEL VARIABLE BECAUSE WURK EXECUTED 

IF(ID.EQ.2)TLEV£L(IA)=0 
C 
C*** SET LEVEL OF MAINTENANCE FACTOR TO ONE 



221 



3021 CONTINUE 
C 
C*«* DETERMINE THE CREW HOUR COST FOR LABOR ANO EQUIPMENT 

CU=PS{IA,ITYPE,1) 
C 
C ***INITIALIZE WORKSITE TYPE 

M=SIM( IA,1) 
C 
C ***UET£RMINE IF WORKSITE IS UNIFORMLY OR RANDOMLY SPACED 

N=SIM(IA,5) 
C 
C ***INITIALIZE LF, A LANE FACTOR USED TO MODIFY SIMULATION WORKLOAD 

LF = 1 
C 
C*** ESTABLISH THE AMOUNT OF WORKLOAD TO BE DONE FOR EACH OCCUPANCY PERIOD 

WK=HWORK( IA)/NA 
C 
C*** ASSIGN CREW TRAVEL TIME TO TT 

TT=0VER(5tIA) 
C 
C*** DETERMINE THE OCCUPANCY FIXED CREW HOURS FOR EACH OCCUPANCY 

FIXHRS = 2«0VER(8,IA)<-0VER(7,IAJ 
C 
C*** TEST CREW WORK HOURS AGAINST 24, WHICH MEANS CONTINUOUS WORK 

IF{OVER( 1,IA).NE.24)G0T0 3050 
C 
C*** ASSUME NO CREW TRAVEL TIME OR FIXHOURS FOR 2^ HR OCCUPANCY 

TT = 

FIXHRS=0 
C 
C*** ADJUST AVAILABLE CREW HOURS FOR TRAVEL TIME 

3050 CREWT=OVER{l,IA)-TT 
C 
C*** ASSIGNMENT PROCESS FOR ALL POSSIBLE LANE CLOSURES 

DO 3031 IC=1, LANES 
C 
C ***TEST TO DETERMINE IF LANE FACTOR, 'LF* WILL BE SET EQUAL TO LANES CLOSED 

IF(M.EQ.3)LF=IC 
C 
C *** INITIALIZE FIRST UNAVAILABLE HOUR OF ROADWAY OCCUPANCY TO ZERO 

lMi=0 
C 
C ***ADJUST THE AVAILABLE OCCUPANCY HOURS ARRAY MHOUR' FOR V/C CONSTRAINS 

DO 3700 IH=1,24 
C 
C **«INITIALIZE JHOUR TO IHOUR 

JHOURt IH)=IHOUR( IH,IA) 
3700 CONTINUE 
C 
C ***IF DETOUR EXISTS BYPASS V/C RESTRAINTS 

IFdC.EQ. LANES. AND. GVER( 12, I A) .EQ. 0) GOTO 3703 
C 
C *»«TEST TO DETERMINE IF ROAD WILL BE CLOSED FOR 24 HOURS 



222 



IFCOVERl If IA).EQ.24)G0T0 3703 

00 3 704 IH=1,24 
C 
C ***OETERMINE THE CAPACITY OF CLOSURE 

CAPACT=CAP(IC)*-(0VER(12, lA )*CAP( LANES) ) 

IF(IC.NE.LANES)GOTO 3701 
C 
C ***DETERMINE CAPACITY OF SHOULDERS 

CAPACT=CAP(IC>*OVER( 12f lA) 

3701 CONTINUE 
C 

C ***COMPUTE THE VOLUME CAPACITY RATIO 

TeMPI=HVOL(IH)/(CAPACT*( l-PCTADT( IH,6,I0,l)) ) 
C 
C ***TEST THE VOLUME-CAPACITY RATIO AGAINST THE PERMITTED V/C RATIO 

3702 IF(TEMP1.GT.OVER(10,IAJ) JHOUR(IH)=0 
3704 CONTINUE 

3703 CONTINUE 
C 

C*** INITIALIZE THE NUMBER OF TRAFFIC CONTROL ZONES FOR LANE CLOSURE TO ZERO 

NZ=0 
C 
C*** INITIALIZE THE ACCUMULATED ZONE LENGTH FOR LANE CLOSURE TO ZERO 

ZL=0 
C 
C*** INITIALIZE CREW HOURS FOR LANE CLOSURE TO ZERO 

CREWH(IC)=0 
C 
C ***INITIALIZE NO AVAILABLE OCCUPANCY TIME INDEX 

NOTIME(IC)=0 
C 
C*** INITIALIZE OCCUPANCY HOURS FOR LANE CLOSURE TO ZERO 

DO 3015 IH=1,24 

HRSC IA,IH,IC)=0 
3015 CONTIMUE 
C 
C**« ESTABLISH SIMULATION WORKLOAD DENSITY FACTOR 

OENSEW=SWORK(IAi*LF/(WK*IC) 
C 
C 

C*** SIMULATE THE ASSIGNMENT OF CREWS TO THE ROAD TO PERFORM WORK 
C 

c 

C*** INITIALIZE VARIABLES FOR SIMULATION PROCESS 
C*** PATCH ARRAY COUNTER 

IW = 
C 
C*** ACCUMULATED PRODUCTION TIME 

TTIME=0 
C 
C ***ESTA8LISH THE NUMBER OF SIMULATION ITERATIONS 

ISIM=SIM<IA,4) 
C 
C ***ESTABLISH SIMULATION FACTOR FOR RANDOM LOCATIONS 



223 



SFACT=1000/ISIM 
C 

C*** INCREMENT THE WORKLOAD ARRAY 
3025 IW=IW+1 

IF{IW.GT.ISIM)GQT0 3030 
C 

c 

C SUBROUTINE AVAILH 
C 

c 

C*** IF IMl IS ZERO THIS IS THE FIRST TIME FOR ROUT INE, AC TI VI TY , CLOSURE 

IF( IMl.NE.OGOTO 3492 
C 
C*** DETERMINE THE FIRST HOUR WHEN CREWS CAN NOT OCCUPY ROAD 

DO 3490 1=1,24 

IF( JHQUR(I).Eg.0)GOTO 3491 

3490 CONTINUE 
C 

C*** ASSUMt FIRST OCCUPANCY HOUR TO BE 6AM IF ALL HOURS ARE AVAILABLE 
IM1=6 
GOTO 3492 

3491 IM1=I 
C 

C*** INITIALIZE AVAILABLE CREW HOURS FOR A CONTINUOUS OCCUPANCY 

3492 AVAIL=0 
C 

C*** DETERMINE FIRST AVAILABLE OCCUPANCY HOUR 
00 3500 I=IM1,24 
IF( JHOURdJ-EQ.iJGOTO 3501 

3500 CONTINUE 
C 

C**« ALLOW SEARCH TO CONTINUE INTO NEXT DAY 

00 3504 I=l»24 

IF(JHOUR(I ).Eg.l)GOTO 3501 
3 504 CONTINUE 

NOTIMt(IC)=l 

GOTO 3031 
C 
C**« ACCUMULATE IN AVAIL THE TOTAL HOURS OF CONTINUOUS OCCUPANCY 

3501 CONTINUE 
C 

C*** IM2 IS ASSIGNED TO 1ST AVAILABLE WORK HOUR 

IM2=I 
C 

DO 3502 J=I,24 
C 
C ***TEST FOR AN AVAILABLE HOUR 

IF( JHOUR(J).EQ.O)GOTO 3505 
C 
C ***ACCUMULATE THE NUMBER OF CONTINUOUS AVAILABLE HOURS 

3502 AVAIL=AVAIL+l 
C 

C*** ALLOW THE ACCUMULATED HOURS OF OCCUPANCY TO CONTINUE INTO THE NEXT DAY 
DO 3 503 J=l,24 



224 



IF(JHJUR{J). EQ.OJGOTO 3505 
C 
C*** THE WORK PERIOD MAY NOT EXCEED 24 HOJRS FOR A GIVEN LOOP 

IF(AVAIL + l.GT.24)G0T0 .3505 
3503 AVAIL=AVAIL+1 
C 
C*** THE VALUE OF J ASSIGNED TO IMl REFLECTS THE 1ST UNAVAILABLE HOUR OR 6AM 

3505 1M1=J 
C 

C ««*MAKE THE CONTINUOUS AVAILABLE OCCUPANCY TIME EQUAL TO 
C «**THE SMALLER VALUE BETWEEN NET CREw TIME 'CREWT* OR 'AVAIL* 

1F(CHEWT.LT.AVAIL)AVAIL=CREWT 
C 
C ***AOJUST AVAIL FOR THE FIXED HOURS REQUIRED ON THE ROADWAY 

AVAIL=AVAIL-FIXHRS 
C 
C*** bSTASLISH THE LOCATION OF THE FIRST WORKSITE IN THE TRAFFIC ZONE 

DIST1=DENSEW*RL0C( IW) 
C 
C **»INITIALIZE THE SPACING FACTOR • SF • FOR UNIFORM SPACING 

SF^DISTl 
C 
C**« DETERMINE THE AMOUNT OF TIME REQUIRED TO DO WORK AT FIRST SITE 

IND£X=1 

GOTO 3100 
3120 CONTINUE 
C 
C*** SUBTRACT WORKTIME FROM AVAILABLE WORK TIME 

AVAIL=AVAIL-TIME 
C 
C*** ACCUMULATE THE PRODUCTIVE WORK TIME ON THE ROAD 

TTIM£=TTIM£+TIME 
C 
C*** HOLD THE LOCATION OF THE WORK SITE WHICH HAS JUST BEEN COMPLETED 

DIST3=DIST1 
C 
C*** TEST TO DETERMINE IF AVAILABLE WORK TIME IS EXCEEDED 

IF (AVAIL) 320 0,32 00,31 10 
C 

C**« INCREMENT THE WORKLOAD ARRAY 
3110 IW=IW+i 

c 

C«*« IF THE SIMULATION IS COMPLETE TOTAL CREW HRS. AND HOLD OCCUPANCY HRS. 

IF(Iw.GT.ISIM)GOTO 3200 
C 

C««* DETERMINE THE LOCATION OF THE NEXT WORKSITE ON THE ROAD 
C 
C ***GOTO APPROPRIATE SPACING FACTOR 

G0T0{3101,3102) ,N 
C 

C ***RANDOM SPACING LOCATION 
3101 DIST2=DENSEW*RL0C{ IW)*SFACT 

GOTO 3103 
C 



225 



C ***UNIF0RM SPACING, BASED ON JOINT SPACING OR SPECIFIED SPACING FACTOR 
C ***SF IS ACCUMULATED DISTANCE FOR UNIFORM SPACING IN MILES 

3102 SF=SF+OV£R(2,IA)/5280 
C 

C ***UNIFORM SPACING LOCATION 
0IST2=SF 

3103 CONTINUE 
C 

C**« DETERMINE IF THE NEXT WORK SITE IS WITHIN THE ALLOWED TRAFFIC ZONE 
C ***AND IF IT IS THEN DETERMINE THE TIME REQUIRED TO DO WORK 

INDEX=3 

IF ((DIST2-DIST1J.lt. OVER (9, I A)) GOTO 3100 
C 
C*** COMPUTE THE TIME REQUIRED TO MOVE AND INSTALL NEW TRAFFIC CONTROL ZONE 

TEMP1=(0IST2-DIST1)/TCM0VE+0VER(8,IA) 
C 
C ***IF THE TRAVEL TIME TO THE NEXT SITE EXCEED 2 HRS, GET OFF ROAD 

IFCTEMPl.GT.(0VER(8,IA)*2))G0T0 3123 
C 
C*** DETERMINE TIME REQUIRED TO DO WORK AT FIRST SITE IN NEW T/C ZONE 

INDex=2 

GOTO 3100 

3121 TIME=TIME+TEMP1 
C 

C ***0ETERMiN£ IF REMAINING AVAILABLE TIME WILL BE EXCEEDED 

IF(( AVAIL-TIME). LT.0.)G0T0 3123 
C 
C ***ACCUMULATE TRAFFIC CONTROL ZONE DISTANCE > 

ZL=ZL+{DIST3-DIST1) i 

C 
C ***ACCUMULATE THE NUMBER OF TRAFFIC CONTROL ZONES 

C ***INITIALIZE FIRST WORKSITE IN TRAFFIC CONTROL ZONE ! 

DIST1=0IST2 ; 

GOTO 3111 ; 
C 

c 

C ***COMPUTE THE TIME REQUIRED TO WALK TO NEXT WORKSITE 

3122 TIME1=(DIST2-DIST3)/WALK 
C 
C ♦**IF THE TIME REQUIRED TO WALK TO THE NEXT SITE EXCEEDS 6 MINUTES, DRIVE 

IF(TIME1.GT.«1)TIM£1=TIME1*WALK/TCM0VE 
C 
C ***COMPUTE TOTAL TIME TO 00 NEXT WORK SITE 

TIME=TIME+TIME1 
C 
C ***DETERMINE IF REMAINING AVAILABLE TIME WILL BE EXCEEDED 

IF((AVAIL-TIMt).GE.0.0)GOTO 3111 
C 
C ***RESET IW TO REFLECT THAT NEXT SITE WAS NOT DONE 

3123 IW=IW-1 
GOTO 3200 

C 



226 



C**« ADJUST THE AVAILABLE TIME TO REFLECT PERFORMANCE OF WORK 

3111 AVAIL=AVAIL-TIME 
C 
C*** ADD TO ACCUMULATED PRODUCTION TIME 

TTIME=TTIME*TIME 
C 
C*** RESET THE LAST SITE WHERE WORK WAS COMPLETE 

DIST3=DIST2 

GOTO 3110 
C 

C ***THIS ROUTINE DETERMINES PRODUCTION TIME AT WORKSITES 
C 

3100 CONTINUE 
C »**BRANCh to the APPROPRIATE WORKSITE TYPE 

GU TO { 3 10 4 1 3 1 05 » 3 1 06 J , M 

3104 TEMP2=PATCHF(IW) 
GOTO 3107 

3105 TEMP2=PATCHP(IW) 
GOTO 3107 

3106 TEMP2=LF 
C 

C ***COMPUTE PRODUCTION TIME AT A WORKSITE 

3107 IF{PS(IA,ITYPEt3).NE.0)G0T0 3109 
WRITE(M0,3i08J lA 

310d FORMATdH , 'ACTIVITY STANDARD' , I 2 , • UNDEFINED'} 
3109 TIME=(TEMP2*SIM( lA,2)-»-SIM( IA,3))/PS( lA, I TYPE, 3) 
C 
C ***RETURN TO APPROPRIATE PLACE IN SIMULATION 

GOTO (3 120t 3121,3122) , INDEX 
C 

3200 CONTINUE 
C 
C ***ACCUMULATE TRAFFIC CONTROL ZONE DISTANCE 

ZL=ZL+(DIST3-DIST1)+0VER(11, lA) 
C 
C ***ACCUMULATE THE NUMBER OF TRAFFIC CONTROL ZONES 

NZ=NZ+1 
C 
C«*4c TOTAL THE CREW HOURS ON THE ROAD 

STIME=TTIME+FIXHRS 
C 
C*** ACCUMULATE THE CREW HOURS FOR EACH ROADWAY OCCUPANCY 

CR£WH(IC)=CREWH(IC)+STIME+TT 
C 
C*«* DETERMINE LAST HOUR OF ROAD OCCUPANCY 

M1=IM2+STIME 
C 
C*** DETERMINE THE ACTUAL TIME SPENT IN LAST OCCUPANCY HOUR 

RTIM£=IM2*ST1ME-M1 
C 
C*** DETERMINE LAST EVEN FULL OCCUPANCY HOUR 

Mi=Ml-l 
C 
C*** ASSIGN EACH HOUR OF ROADWAY OCCUPANCY TO AN ARRAY FOR EACH HOUR OF DAY 



227 



DO 3201 K=IM2,M1 

J=K 
C 
C**« NO HOUR MAY EXCEED 24 

IFCJ .GT.24)J = J-24 

HRS(IA,J,IC)=HRS( lA, J, IC)+1 
3201 CONTINUE 
C 
C**« GET THE LAST HOUR OF OCCUPANCY 

J=J+l 
C 
C*** NO HOUR MAY EXCEED 24 

IF(J.GT.24)J=J-24 
C 
C^c** ASSIGN THE REMAINING OCCUPANCY TIME TO LAST OCCUPANCY HOUR 

HRS( IA,J,ICJ=HRS{IA, J,IC)+KTIME 
C 
C«** INITIALIZE OCCUPANCY VARIABLES 

TTIME=0 

GOTO 3025 
C 

C*** END OF ROAD CLOSURE SIMULATION 
C 
C **«D£TERMINE THE AVERAGE TRAFFIC ZONE LENGTH FOR LANES CLOSED AND ACTIVITY 

3030 ZON£L(IA,IC}=ZL/NZ 
C 

C ♦**FACTOR CREW AND OCCUPANCY HOURS FOR MULTIPLE LANE CLOSURES 

CREriH(IC)=CREWH(IC)/LF 

DO 3029 IH=l,24 

HRS( IA,IH,IC) = HRS(IAf IH, IC)/LF 
3029 CONTINUE 
C 
C ***END OF LANE CLOSURE LOOP 

3031 CONTINUE 

3032 CONTINUE 
C 

C 

C *«*ASSIGN DISTANCE BETWEEN DETOUR EXIST POINTS TO FREEWAY 

C ***INFLUENCE ZONE FOR ALL LANES CLOSED 

IFIOVERi 12,IA).EQ. 0)Z0NEL(IA,LANES)=DET0UR(1) 
C 

C««* DETERMINE THE TOTAL MAINTENANCE COST FOR ACTIVITY AND EACH CLOSURE 
C 
C 
C*** RATIO THE ANNUAL LANE MILE PROJECT WORKLOAD TO THE SIMULATION WORKLOAD 

W=HWORK( IA)«PROJLN/SWORK(IAJ 
C 
C 
C ***DETERMINE CM, THE MATERIAL COSTS FOR THE OCCUPANCY WORKLOAD 

CM=HWORK( IA)*PR0JLN*LANES*PS(IA,ITYPE,2) 
C 
C ***INITIALIZE THE WORKLOAD TO ZERO NOW THAT WORK HAS BEEN COMPLETED 

IF( ID.EU.2)HW0RK( IA)=0 



228 



C*** GO TO THE APPROPRIATE EXPRESSWAY TYPE ROUTINE 

GOTO (3040, 3051 f 3060) ,KP 
C 

C*** COMPUTE COST FOR THREE-FOUR LANE DIVIDED MAINTENANCE CLOSURES FUR YEAR 
3040. COSTS ( IA,I,1,I0)=(CREWH(2)*2*W*CU)+CM 

COSTS( IA,2f 1,ID)=(CREWH( 1) *W*2*CU) +CM 

C0STS(IA,3,l,ID)=C0STS(IA,l,i,ID) 

IF(NOTIME( 1 ) •EQ.l) COSTS ( I A, 3 , 1 , I D) =1000000000 

GOTO 3070 
C 

C*** COMPUTE COST FOR FOUR-SIX LANE DIVIDED MAINTENANCE CLOSURES FOR YEAR 
3051 COSTS ( IA,l,l,ID)=(CREWH(3)*3*W*CU)+CM 

COSTS( IA,2,l,ID)=( (CREWH(2)*2*W+CREWH( l)*W)*CU)+CM 

COSTS* IA,3,l,ID)=(CREWH{ 1) *W*3*CU) +CM 

C0STS(IA,4,l,I0}=C0STS(IA,l,l,ID) 

|F(N0TIME(2).EQ.1)C0STS( lA ,4, I , ID) =1000000000 

GOTO 3070 
C 

C*** COMPUTE COST FOR FIVE-EIGHT LANE DIVIDED MAINTENANCE CLOSURES FOR YEAR 
3060 COSTS( IA,l,lf ID)=(CREWHI4)*4*W*CU)+CM 

COSTS ( IA,2,1,ID)=( (CREWH(3)*3*W+CREWH( 1)*W)»CU)+CM 

C0STS(IA,3,1,ID)=(CREWH(2)*2*W*2*CU)+CM 

COSTS < IA,4,1,I0)=(CR£WH{ 1 )*W*4*CU) +CM 

C0STS(IA,5,1,ID)=C0STS(1A,1,1,ID) 

IF(N0TIME(2).EQ.1)C0STS( 1 A, 5f 1 , I D)= 1000000000 
3070 CONTINUE 

DO 3072 IC = I, LANES 

IF(NOTIME(IC).EQ.0)G0TO 3072 

J=LANES-IC+1 

COSTS(IA>JtltID)=1000000000 
3072 CONTINUE 

IF(NOTIME(LANES) .EQ.l) COSTS ( I A, LANES^-l* 1 , ID) = 1000000000 
C 

C*** CONVERT THE SIMULATION OCCUPANCY HOURS TO WORKLOAD OCCUPANCY HOURS 
C*** FOR EACH LANE CLOSURE FOR THE YEAR 

DO 3080 IH=l,24 

00 3081 IC=1, LANES 

HRS(IATlH«IC) = HRS(IA>IHtIC)*W4'IC 
3081 CONTINUE 
3080 CONTINUE 
3010 CONTINUE 

RETURN 

END 



229 



c 

^_ ^r ^r ^^ ^r 'r V' T* "r ^ ^ ^r *r t " ^n T^ ^r n(~ ^n ^^ -^ ^ ^n V ^n ^* ■T* t ^p ^ "^ ^ ^r ^- 

C***«******4=****«*« SUBROUTINE MUTOR *«*«*:<c*«******4:c 

{^**«!{c«*<c***«***«««« PROGRAM 'EAROMAR* «***jJc*«*«««««««q 

C«*«««5it;Jc**j(^***«***«:«c*i{e«*:Jc«***){c + **«5;t«jjc:)c****:Jc*«#*j(c**** *«**«« ********** 
(^* ********** ******#:{e){s***>!t« «***«#«:)£ ********************************** *Q 

c 

SUBROUTINE MOTOR 

INTEGER C0STS(7,5,8,^J 

COMMON ARHUt CAP(5)f COSTSf 

1 CWT, [}V0L(24), HV0L(24), ID, 

2 IH0UR(24,7), ITYPE, lYj KP, 

3. LANES, MI, MO, NYEARS, 

4 0C0STS(65,2) , PATCHF( 1000 ) , PATCHP ( 1000) , PROJLN, 

5 RLOC(IOOO), SIM(7,5), SP(5,11), SPEE00124}, 

6 SPEEUN(24), SPLIT(2), SW0RK(7), TRUCKS(2), 

7 VGLUME(2), VTRATEt 5,40) , Z0NtL(7,4) 
COMMON/ASSUME/ ALIGN13,6), AACOST, CUMVOT, 

1 0ET0UR(7), DLIFt, FUEL(2), HRS(7,24,4), 

2 HW0RK(7), lUIR, INC, IPRINT, 

3 IWT, JPRINT, OCSCHL, OCWORK, 

4 0IL(2), 0VER(12,7), PCT ADT( 24, 7, 2 , 2) , PS ( 7 ,3 , 3) , 

5 PSIRS, RATEI, RLIFE, SINDEX, 

6 SLIMIT(5), TCMOVE, TIRESi2), TLEVEL(7), 

7 WALK, WIDTH, WEIGHT(10,3) 
DIMENSION ACDTS(4) 

DIMENSION ACD(7,3) 
■DIMENSION AV0L(24) 

DIMEiMSION CR0SS(4) , 

DIMENSION P0LUTE(4) 

DIMENSION QUECST (2) 

DIMENSION SPEED(24) ,DELAy(24) 
C 
C «*«ACCIDENT EQUATIONS INTERCEPTS AND COEFFICIENTS 

DATA ACD/-4.39,-5o 75,-7.26,-6. 14,-4. 54 ,-7. 32 ,. 96 , 
2.5i,.7o,.7 7, .6 8, .59, .67,.99, 
3. 69,. 81, .95,. 85,. 73, 1.06, .95/ 

SCZONE=1.0 

PWT=WEIGHT( 1,1) 

IND£X=0 
C 

c 

C ***MOTOREST LEV EL , DETERMINAT ION UF THE MOTOREST IMPACT PERIOD 

C 

C 

C 

C ***0£TERMINE THE APPLICABLE DAYS FOR EACH LANE CLOSURE DURATION BY 

C ***ACTIVITY BY CLOSURE TYPE 

C 

c 



230 



DU 5000 IA=l,7 

IF (0VER(6, IA).EQ.O)GOTO 5000 
C 

c 

C «**INITIALIZE THk FACTOR FOR SIGNALS ON DETOUR 

CYCLE=0 
C 
C *«« INITIALIZE THE DETOUK TRAFFIC VOLUME FACTOR 

OFACT=i 
C 

DO 5100 IC=l, LANES 
C 
C 
C **«INIT lALlZE ACCIDENTS 

ACDTS(IC)-=0 
C ***INITIALIZ£ POLUTE 

POLUTE(iC)=0 
C 
C 
C ♦*«I.MITIALIZE THE CROSS OVER FACTOR 'CROSS* 

CROSS( IC)=0 
C 
C ***ACCUMULATE THE TOTAL HOURS OF ROADWAY OCCUPANCY FOR EACH LANE CLOSURE 

DO 5080 IH=1,24 
5080 CROSS(IC)=CROSS(ICJ+HRS(IA,IH,IC) 
C 
C ***INITIAHZE THE CAPACITY TO 'CAP* PLUS SHOULDERS IF AVAILABLE 

CAPACT-CAP( ICy+CAP(LANES)«0VtR(12t lA) 
C 
C «**IF ALL LANES ARE CLOSED A DFTOUR SITUTAIJN CAN EXIST 

IFdC.NE.LANESJGQTO 5201 
C 
C «»«T£ST FOR DETOUR 

IF(0VER( 12»IA).GT.0)G0T0 5090 
C 
C ***COMPUTE THE DETOUR VOLUME FACTOR 

DF ACT=(VOLUME{ l)+DET0UR(4J )/VOLUME( 1) 
C 
C ***ESTABLISH AVERAGE DETOUR STOPS 

CYCLE=DET0UR(6) 
C 
C **«CAPAC1TY OF DETOUR 

CAPACT=D£T0URi5) 

GOTO 5201 
C 
C **»0ETERMINE CAPACITY OF SHOULDERS FOR ALL LANES CLOSED 

5090 CAPACT=CAP(LANES)*0VER(12, lA) 
C 

C ***IN1TIALIZE STARTING HOUR 
5201 IBEGIN=l 
5001 CONTINUE 
C 
C ***0ETERMINE THE FIRST HOUR OF TRAFFIC IMPACT 

DO 5500 IH=IBEGIN,2^ 



231 



IF(HRS(IA,IH,IC).NE.O)GOTO 5501 

5500 CONTINUE 
C 

C ***GET ANOTHER CLOSURE 

GOTO 5100 
C 
C ***SET INITIAL IMPACT HOUR 

5501 IBEGIN=IH 
C 

C ♦♦♦DETERMINE IMPACT DURATION 

DO 5510 IH=IBEGIiSI,23 

TEMP1=HRS(IA,IH, IC) 

TEMP2^HRS(IA,IH+1,IC) 
C 
C ♦♦♦DETERMINE IF THERE IS CHANGE IN OCCUPANCY DURATION 

IF(TEMP1.EQ.TEMP2JG0T0 5510 
C 
C ♦♦♦SET THE DAYS OF IMPACT EQUAL TO THE DIFFERENCE IN OCCUPANCY DURATION 

DAYS=TEMPi-TEMP2 
C 
C ♦♦♦OCCUPANCY DURATION MUST BE POSITIVE 

IF(DAYS.LT.O)DAYS=TEMPl 
C 
C ♦**SET THE LAST HOUR OF OCCUPANCY 

IEND=IH 

GOTO 5511 

5510 CONTINUE 
C 

C ♦♦♦SET THE DAYS OF IMPACT FOR FINAL HOUR 

DAYS=TEMP2 

IF(DAYS.EQ.0)G0T0 5001 
C 
C ♦♦♦SET THE END OF OCCUPANCY AT FINAL HOUR 

IEND=24 
C 
C ♦♦♦INITIALIZE THE QUEUE AND THE FIRST DELAY TIME TO ZERO 

5511 QUEUE=0 
TIME1=0 

C 
C 
C ♦♦♦DETERMINE THE CLOSURE CATEGORY SUBSCRIPT 

J=IC 
C 

C ♦♦♦WHEN ALL LANES ARE CLOSED AND SHOULDERS ARE AVAILABLE 
C ♦♦♦USE THE SPEED CURVE DETERMINED FOR ONE LANE OPEN TO MOTOREST 

IF( I C.EQ. LANES. AND. OVER! 12, 1 A) .GT.O ) J=LANES-1 

FACTl=l 
C 
C ♦♦♦DETERMINE THE VOLUME, DELAY AND SPEED FOR EACH HOUR OF IMPACT 

DO 5520 IH=I6EGIN, lEND 
C 
C ♦♦♦DECREASE THE OCCUPANCY ARRAY BY THE DAYS USED DURING THE IMPACT PERIOD 

HRS( IA,iH,IC)=HRS( IA,IH, IC)-DAYS 



232 



C ***MODIFY THE CAPACITY FOP COMMERCIAL TRAFFIC VOLUME 

5521 FCAP=(1-PCTADT( IHt 6, 10, 1 ) ) *CAPAC T 
C 
C ***DfcTeRMINE THE VOLUME WHICH MUST BE HANDLED DURING THE HOUR 

AVOL{ IH)=HVOL( IH )*DFACT+gU£UE 
C 
C *«*ESTABLISH THE VOLUME WHICH WILL BE HANDLED DURING THE HOUR 

IFUVOL( IH).GT.FCAP)AVOL( IH)=FCAP 
C 
C ***HOLD ANY EXCESS VOLUME IN A QUEUE 

QUEUe=HVOL(IH)*OFACT-FCAP+QUEUE 
C 
C ***THE QUEUE CANNOT BE LESS THAN ZERO 

IF ( QUEUE. LT.O)QU£UE=0 
C 
C ««*DETERMIN£ THE DELAY TO THE LAST VEHICLE WHICH WILL PASS DURING THE HOUR 

TIME2=QU£UE/(HV0L( IH)*DFACT) 
C 
C ***ESTA8LISH AN AVERAGE DELAY FOR ALL VEHICLES WHICH WILL PASS IN THE HOUR 

DELAY! IH) = (TIMEi*-TIME2)/2*FACTi 
C 
C ♦**R£S£T THE DELAY TO BE ASSOCIATED WITH FIRST VEHICLE IN HOUR 

TIMEi=TIME2 
C 
C ***CUMPUT£ VOLUME-CAPACITY RATIO 

VC=AVOL{ IH)/FCAP 
C 
C **«D£T£RMINE SPEED MATRIC SUBSCRIPT 

I=<VC+.15)*10. 
C 
C *«*DETERMIN£ THE SPEED OF VEHICLES PASSING THROUGH THE TRAFFIC CONTROL ZONE 

SPEED{IH)=SP(J,I) 
5520 CONTINUE 

IF(QUEUE.EQ,0)GOTO 5530 

IF( IH.tQ,24)G0T0 5530 
C 
C ***1NCREMENT THE HOURS BEYOND THE OCCUPANCY PERIOD TO ACCOMODATE ANY QUEUE 

IH=1H<-1 
C 
C ***R£SET THE CAPACITY TO NORMAL 

CAPACT=CAP(LANES+I) 

IF(QUEUE+HVOL(IH}.LT.CAPACT)FACTI=QUEUE/CAPACT 
C 
C *#*SET J EQUAL NORMAL SPEED CURVE 

J=LANES+1 
C 
C *** INCREMENT THE IMPACT PERIOD 

IENO=ieND+l 

GOTO 5521 
5530 CONTINUE 
C 
C 

C SUBROUTINE VOCOST 

C 



233 



c 

C ***ACCUMULATE OPERATION COSTS FOR THE IMPACT PERIOD 

ZONE=ZONEL(IA, IC) 

DO 6000 IH=IBEGIN, lEND 
C 
C ♦♦♦INITIALIZE TEMPORARY VARIABLE TEMP3 TO ZERO AND POSITTON INDEX TO ZERO 

INDEX=0 
C 
C ♦♦♦ROUND NORMAL SPEED TO INTEGER VALUE 

I=SP££DN(IH}+.5 
C 
C ♦♦♦DETERMINE POLUTION FACTOR FOR FREEWAY SPEED NORMAL 

P=SPEEDN(IHj 

PV=.39+(EXP( l.l9 3-.032*P)+.ll^(EXP(0.957-.026+P) )J 
C 
C ♦♦♦DETERMINE NORMAL PASSENGER CAR OPERATION COSTS FOR THE HOUR 

TEMPl=0C0STS(I,l)^HV0L(IH)^(l-PCTADT(Iri,6,ID,ii) 
C 
C ♦♦♦DETERMINE NORMAL COMMERCIAL VEHICLE COSTS FOR THE HOUR 

TEMP2=OCOSTS(I,2)^HVOL(IH)^PCTADT( IH,6,ID,i) 
C 
C ♦♦♦HOLD NORMAL OPERATION COST FOR HOUR 

QUECST( l) = TEMPH-TEMP2 
C 
C ♦♦♦TEST TO DETERMINE IF DETOUR CLOSURE IS BEING PROCESSED 

IF(IC.N£.LANES)GOTO 6002 
C 

IFtOVER(i2,IAJ.NE.0)GOTO 6002 
C 
C ♦♦♦ROUND DETOUR SPEED TO INTEGER VALUE 

Il=SPEEDD(IH)+.5 

C J 

C ♦♦♦DETERMINE POLUTION FACTOR FOR DETOUR NORMAL 1 

P=SPEE0D{1H) ^ 

PD=.89^(EXP( i.l93-.032^P)+.Il^(EXP(0.957-.026^P))) 
C 
C ♦♦♦DETERMINE NORMAL PASSENGER CAR OPERATION COSTS IN DETOUR FOR THE HOUR 

TEMP3=0C0STS( UtD^DVOLI IH )♦ ( 1-PCTADT( IH,6,ID,I) ) 
C 
C ♦♦♦DETERMINE NORMAL COMMERCIAL VEHICLE COSTS IN DETOUR FOR THE HOUR 

TfcMP4=0C0STS(Il,2)+DV0L( IH )^PCTADT ( I H, 6, ID,1) 
C 
C ♦♦♦COMBINE VEHICLES AND DETERMINE THEIR COSTS THROUGH DETOUR 

TEMP3=(TEMP3+TEMP4)+D£T0UR(2)/SPEEDD( IH) 

TEMP 1=(TEMP1+TEMP2)^0E TOUR (IJ/SPEEDN(IH)+TEMP3 

TEMP1=(T£MP1+TEMP2)+Z0NEL(IA,IC)/SPEEDN( IHJ+TEMP3 

Z0NE=DET0UR(2) 

GOTO 6003 
C 
C ♦♦♦COMBINE VEHICLES AND DETERMINE THEIR COSTS THROUGH TRAFFIC CONTROL ZONE 

6002 T£MPl=(TEMPI+TEMP2)^Z0NEL( I A, IC ) /SPEEDNl IH) 
C 
C ♦♦♦ROUND SPEED THROUGH TRAFFIC CONTROL ZONE TO INTEGER VALUE 

6003 J=SPEE0(IH)*-5 



234 



c 

C . ***OETERMINE POLUTION FACTOR FOR INFLUENCE ZONE 

P=SPEEO( IH) 

PR=.»9*(EXP( 1.193-.032*P)*.ll*<EXP(0.957-.026*P) )) 
C 
C ***HOURLy PASSENGER CAR OPERATION COSTS THROUGH THE TRAFFIC CONTROL ZONE 

TEMP2=0C0STS(J.1)*AV0L(IH)*( l-PCTADT( IH,6, 10, 1 ) ) 
C 
C ***HOURLy COMMERCIAL VEHICLE OPERATION COSTS THROUGH THE TRAFFIC CONTROL ZONE 

TEMP3=0C0STS(J,2)*AV0L(IH)*PCTA0T( IH,6,ID,1) 
C 
C ♦♦♦COMBINE VEHICLES AND DETERMINE THEIR COSTS THROUGH TRAFFIC CONTROL ZONE 

TEMP2= (TEMP2+TEMP3) ♦ZONE/SPEED ( I H) 
C 
C ♦♦♦DETERMINE SPEED CHANGE - DIFFERENCE BETWEEN NORMAL AND SPEED THROUGH ZONE 

K=1.5^(I-J) 

IF(K.L£.l)K=l 

IFIK.GT. nK=I 
C 
C ♦♦♦SET THE SPEED CHANGE EQUAL TO INITIAL SPEED IF A QUEUE EXI^T 

IF(OELAY{ IH) .NE.O)K=I 

S=K 
C 
C ♦♦♦FACTl IS THE TOTAL PASSENGER CARS DURING THE HOUR 

FACTL = AVGL( I Hi* ( 1-PCTADT ( I H, 6, ID, U ) ♦ iOOD 
C 
C ♦♦♦FACT2 IS THE fOTAL COMMERCIAL VEHICLES DURING THE rtUUK 

FACT2=AV0L( IH)*PCTADT{ IH,6,ID, 1)*1000 
C 

C ♦«*FUEL CONSUMPTION SPEED CHANGE MODELS 
6005 CONTINUE 

A=-8+.0Q35*I 

B=.91+.0013^*I 

TEMP3=EXP( A-«-B«ALQGCS) » 

RW=CWT^^1.2/5.277 

TEMP4^TEMP3*RW 

T£MP3=TEMP3^FACT l^FUELl 1 ) 

T£MP4=T£MP4^FACT2^FUEL(2) 
C 
C ♦♦♦COMBINE PASSENGER CAR AND COMMERCIAL VEHICLE COSTS-FUEL 

TEMP3=TEMP3+TEMP4 
C 
C ♦♦♦TIRE WEAR SPEED CHANGE MODELS 

RW=-.64+.l6^CWT 

A=EXP(-4.85*-.0<»6^1) 

B=EXP(-4.7<-,04l7^IJ * 

TEMP4={-A*B^AL0G(S) ) 

IF<TEMP4.LT.0.)TEMP4=0 

T£MP5=RW^TEMP4 

RW=-.64*.16+PWT 

TEMP4=TEMP4^FACT1^TIRES( ll^RW 

TEMP5=TEMP5^FACT2^TIR£S(2) 
C 
C ♦♦♦COMBINE PASSENGER CAR AND COMMERCIAL VEHICLE COSTS-TIRES 



235 



TEMP4=TEMP4+TEMP5 
C 
C ***OIL CONSUMPTION SPEED CHANGE MODELS 

RW=EXPt-i.3V7+.9 54*AL0G{CWTJ ) 

A=-20.5+.09*I 

ThMP5^eXP(A+8*AL0G(S) ) 

TEMP6 = TEMP5*H»^ 

RW = £XP(-1.34 7+.9 5'+*AL0G( PWT) ) 

TtMP5^TEMP5*FACTi*OIL( 1)*RW 

TEMP6=TEMP6*FACT2*0IL(2) 
C 
C *«*C0MbINt PASSENGER CAR AND COMMERCIAL VEHICLE COSTS-OIL 

TEMPi)=TEMP5 + TEMP6 
C 
C **«OPERATION MAINTENANCE COST SPEED CHAMGE MODELS 

A=-. 298+. 00605*1 

tJ=. 3642-. 00173*1 

C=.00306-. 00 0025*1 

RW=A+8*CWT-C*CWT**2 

FACT3=A+B*PWT-C*PWT**2 

SS = I 

A=2.56*1.3*AL0G(SS) 

B=1.3+. 0068*1 

TEMP6=EXP(-A+B«ALaG( S) J/IOOO 

TEMP7=TEMP6*RW 

T£MP6=TEMP6*FACT l*FACT3 

TEMP7=TEMP7*FACT2 
C 
C **-^CQM8INE PASSENGER CAR AND COMMERCIAL VEHICLE COSTS-MAINTENANCE 

TEMP6=(T£MP6+TEMP7J*SIN0£X 
C 
C ***PLACE THE SPEED CHANGE COST FOR FUEL , T IR'ES, OIL AND MAINTENANCE IN TEMP3 

TEMP3=TEMP3+T£MP4+TEMP5+TEMP6 
C ***HOLD THE SPEED CHANGE COSTS FOR USE IF A QUEUE IS LEFT OVER 

IF( INDEX. EQ.0)wi = T£MP3/AV0L{ IHJ 
C 
C «**TEST TO DETERMINE IF DETOUR HAS TRAFFIC SIGNALS 

1F(CYCLE.EQ.0)G0T0 6010 
C 
C ***SbT THE INDEX FOR THE SEQUENCING PROCEDURE 

INDEX=IND£X+1 
C 
C ***BRANCH TO APPROPRIATE SPEED CHANGE ROUTINE 

GOTO (6006,60 07) , INDEX 

GOTO 6010 
C 
C **«ACCUMULATE SPEED CHANGE COST DETERMINE FOR FREEWAY TO DETOUR 

6006 COSTS! IA,IC,2,I0)=C0STS(.IA,IC,2, ID)+TEMP3*DAYS 
C 
C <c**SET SPEED CHANGE AND INITIAL SPEED FOR NORMAL OPERATION ON DETOUR 

S=SPEED0(IHJ 

I=SPEEDD(IHJ 

GOTO o005 



236 



c 

C *«*ACCUMULArE THE SPEED CHANGE COSTS NORMALLY INCURRED ON DETOUR ROUTE 

6007 COSTS(lA,ICf 2tI0)=COSTS( IA,ICt2, I D)-TEMP3*DAYS*DV0L( IH)/AVOL(IH) 
C 
C ***SET SPEED CHANGE AND INITIAL SPEED FOR DETOUR OPERATION ON DETOUR 

S=SPEED( IH) 

I=SPeEO( IH) 

GOTO 6005 
6010 CONTINUE 
C 
C ***DETERMINt AVERAGE OPERATING SPEED IN QUEUE 

K=(SPEED(IH)+.5)/2. 
C 
C *#«DdTERMINE PASSENGER CAR DELAY COST FOR THE HOUR 

TEMP4=FACTl*0C0STS(Ktl)/1000 
C 
C ***DETERM1NE COMMERCIAL VEHICLE DELAY COSTS FOR THE HOUR 

TEMP5=FACT2*0CUSTS(K,2)/1000 
C 
C ***COMBIN£ PASSENGER CAR AND COMMERCIAL VEHICLE DELAY COSTS 

QU£CST(2)=TEMP4+TEMP5 
C ***DET£RMINE THE LENGTH OF THE QUEUE 

DIST=DELAY(lH)*SP£E0(IH)/2 
C 
C 
C ***DtTERMINE NORMAL COSTS IN QUEUE ZONE 

QUECSTMJ=QUECST(1)*DIST/SPEEDN(IH) 
C 
C ***DETERMINE OPERATION COSTS FOR VEHICLES WHILF IN QUEUE 

QUECST(2) = QUECST(2)*DELAY{ IHJ 
C 
C ***DETERMIN£ NET OPERATION COSTS IN QUEUE 

TEMP4=QUECST(2)-QUECST(1) 
C 
C *«<cDET£RMINE POLUTION FACTOR FOR QUEUE 

P=SPEhD( IH)/2 

PQ=. 89*1 EXP ( 1.19 3-.032*P) + .11*(EXP(0.957-.026*P) )) 
C 
C ***COMPUTE THE TOTAL OPERATION COST FOR THE HOUR 

TEMP1=(TEMP2+TEMP3+T£MP4-TEMP1)*DAYS 
C 
C ***ACCUMULATE OPERATION COSTS 

C0STS(IA,IC,2,ID)=C0STS{ IA,IC,2, ID)+TEMP1 
C 
C 

C SUBROUTINE POLUTE 
C 
C 
C **«TEST TO DETERMINE IF ALL LANES ARE CLOSED 

IF(IC.NE.LANES)GOTO 6020 
C 
C ***TEST TO DETERMINE IF ANY SHOULDERS ARE AVAILABLE 

IFIOVERI 12,IA}.GT.O)GOTO 6020 



237 



C ***0ETERMIN£ DAYS OF POLUTION FOR DETOUR CONDITION 

C 

C ***DETERMINE PERCENTAGE SPLIT BETWEEN FREEWAY AND DETOUR NORMAL 

FACT1=HV0L( IH)/(HVOL{IH)+OVOL(IH) ) 
C 
C ***DETERMINE FREEWAY DETOUR EQUIVALENT VEHICLE MILES 

T£MP1=(PR/PV-I)*AV0L(IH)*FACT1*DET0UR(1J 
C 
C ***DET£RMIN£ EXTRA VEHILCE MILES ADDED BY DETOUR 

TEMP2=(PR/PV)*AV0L(IH)*FACTI*(D£T0UR(2)-DET0UR(l)) 
C 
C **DETERMIN£ FREEWAY EQUIVALENT NORMAL DETOUR VEHICLE MILES 

TEMP3=(PR/PD-1)*AV0L(IH)*( l-FACTl ) *OETOUR { 2J 

T£MP3=PV/PD*TEMP3 
C 
C ♦♦♦TOTAL THE VEHICLE MILES 

TEMPl=TEMPH-T£MP2+TEMP3 

GOTO 6030 
C 
C ♦♦♦NON DETOUR SITUATION 

6020 CONTINUE 
C 
C ♦♦♦DETERMINE EQUIVALENT NORMAL FREEWAY VEHICLE MILES 

TEMPI=(PR/PV-1)^AV0L(IH)^Z0NE 
6030 CONTINUE 
C 
C ♦♦♦DETERMINE NORMAL FREEWAY EQUIVALENT VEHICLE MILES FOR QUEUE 

TEMP2=(PQ/PV-1)^AV0L(IH)^DIST 
C 
C ♦♦♦TOTAL THE VEHICLE MILES 

T£MP1=TEMP1+TEMP2 
C 
C ♦♦♦ACCUMULATE VEHICLE MILES OF POLUTIOI, 

POLUTE(IC>=POLUTEUC J + TEMPi^OAYS 
6000 CONTINUE 

IF'QUEUE.EQ.OJGOTO 6040 
C 
C v**AOJUST POLUTION DAYS TO INCLUDE VEHICLES LEFT IN THE QUEUE 

!^OLLJTE(IC)=POLUTEl IC ) + ( PQ/PV-1 ) ♦QUEUE^DI ST 
C 

C ♦♦♦MAKE ADJUSTMENT IN OPERATION COSTS FOR ANY VEHICLE LEFT IN QUEUE 
C 
C ♦♦♦GET THE NORMAL SPEED OF VEHICLES ON THE FREEWAY 

I=SPE£DN(24)*.5 
C 
C ♦♦♦COMPUTE THE NORMAL TIME FOR PASSING THRU THE CLOSURE ZONE 

C=ZONEL( IA,IC)/SP££DN(24) 
C 
C ♦♦♦COMPUTE THE PASS. CAR OPERATING COSTS FOR PASSING THRU THE ZONE 

TEMP1=QUEUE^OCOSTS( I , i ) * I 1-PCTADT( 24,6, IDt i ) )^C 
C 
C ♦♦♦COMPUTE THE COM. VEHICLE OPERATING COSTS FOR PASSING THRU THE ZONE 

TEMP2=QUEUE^0C0STSII,2J+PCTADT{24,6,1D,1)^C 



238 



C ♦♦*CUMBINE OPERATING COSTS, COMPUTE SPEED CHANGE COSTS, AND EXPAND t3Y DAYS 

TEMPl=(TEMPl+TEMP2+QUEUE*Ql)*0AYS 
C 
C ***COMPUT£ THE AVERAGE SPEED OF A VEHICLE LEFT IN THE QUEUE 

K=SP(LANES*-l,ll)/2 + .5 
C 
C 'J'**COMPUTE PASSENGER CAR OPERATING COSTS IN THE QUEUE 

TEMP3 = vjUEUE*0C0STS(K,l)*( l-PCT ADT < 24,6 , I D, 1) ) 
C 
C ***CUMPUTE THE COMMERCIAL VEHICLE OPERATING COSTS IN THE QUEUE 

TEMP4=QUEUE*0C0STS(K,2)«PCTADT(24,6, ID,1) 
C 
C ***COMBINE COMMERCIAL&PASSENGER CAR QUEUE COSTS AND EXPAND BY DELAY AND DAYS 

TEMP3=(TEMP3+TEMP4)*aELAY(24J*DAYS 
C 
C **«ADJUST OPERATING COSTS FOR VEHICLES LEFT IN THE QUEUE 

COSTS ( IA,IC,2,I0)=C0STS( IA,IC,2, I Dj+TEMP 1+TEMP3 
6040 CONTINUE 
C 
C 

C SUBROUTINE TIME 
C 
C 
C ***INITIALIZE DETOUR PARAMETERS TO ZERO 

FACT2=0 

TEMP2=0 

TIM£LD=0 

DO 6100 IH=IBEGIN, lENO 
C 
C ***THE WEIGHTED VALUE OF COMMERCIAL TIME IS TEMPI 

TEMP1=C0MV0T*PCTADT( I H, 6, ID, 1) 
C 
C ♦*«COMPUTE AVERAGE SPEED IN SPEED CHANGE ZONE 

TEMP3=.25*SPEEDN(IH)+.75*SPEED( IH) 
C 
C *«*COMPUTE TIME LOST IN SPEED CHANGE ZONE 

TEMP3=(SCZONE/TEMP3-SCZONE/SPEEDN( IH) )*2 
C 
C «««IF A QUEUE EXISTS COMPUTE TIME LOST IN SPEED CHANGES 

IF (DELAY ( IH) .Nt . 0) TEMP3= 1.67*SCZ0NE/ SPEEDNI IH) 
C 

C ***BYPASS THE COMPUTATION OF LOSS TIME FOR DETOUR UNLESS ALL LANES ARE CLOSED 
C ♦**AND THE SHOULDERS ARE NOT AVAILABLE TO TRAFFIC 

1F( IC.NE.LANES)GOTO 6110 

IF(OVER{ 12,IA).GT.0)G0T0 6110 
C 

C ***TIMEL IS THE TIME LOST BY A MOTORIST WHO NORMALLY TRAVELS THE FREtJAY AND 
C ♦**IS FORCED TO TRAVEL THE DETOUR ROUTE 

TIMEL=DET0UK(2)/SPEED( IH)*-DE TOUR ( 1 ) /SPEEDNI IHJ + OELAYI I H) +TEMP3 
C 
C ***COMPUTE AVERAGE SPEED IN SPEED CHANGE ZONE 

TEMP4=.2 5*SPEED0{IH)<-.75*SPEED(IH) 
C 
C ***COMPUTE TIME LOST IN SPEED CHANGE ZONE 



239 



TEMP4=(SCZ0NE/TEMP4-SCZ0NE/SPeEDD( IH) )*2 
C 
C ***IF A QUEUE EXISTS COMPUTE TIME LOST IiN SPEED CHANGES 

IF ( DELAY ( IH) .NE. 0) TEMP4= 1.67*SCZ0N£/SPEEDD( IH) 
C 
C «**TiMELD IS THE TIME LOST BY A MOTORIST WHO NORMALLY TRAVELS THE DETOUR 

T1MELD=0ET0UR(2)/SPEED( I H)-DETOUR ( 2)/SPE EDD( IH ) *OELA Y{ IH )+TEMP4 
C 

C ***FACT1 IS THE RATIO OF THE NORMAL FREEWAY VOLUME TO THE TOTAL VOLUME ON THE 
C ***Dt:TOUR ROUTE 

FACT1 = HVOL(IH)/(HVOLCIH)+DVOLI IH) ) 
C 

C *««FACT2 IS THE RATIO OF THE NORMAL VOLUME ON THE DETOUR ROUTE TO THE TOTAL 
C ***VOLUME ON THE DETOUR ROUTE 

FACT2=DV0L( I H) / ( HVOL ( IH) +DVOLi IH) ) 
C 
C ***J IS THE TIMELOSS ON THE DETOUR ROUTE IN MINUTES TO THE NEAREST MINUTE 

J=A8S(TIMEL0)*60+.5 

IF{J.EQ.0)GUT0 6102 

IF{J.GT.40) J^40 
C 
C ***ACCUMULATE THE WEIGHTED VALUES OF TIME LOSS FOR ALL TRIP PURPOSES 

TEMP2=TEMP1 

DO 6101 IT=1,5 

TEMP2=TEMP2+VTRATE(IT,J)*PCTADT( IH,IT,IO,l) 

6101 CONTINUE 
C 

C ***COMPUTE THE VALUE OF TIME LOST TO DETOUR ROUTE MOTORISTS 
TEMP2=TEMP2*TIMELD 
GOTO 6120 

6102 CONTINUE 
TEMP2=0 
GOTO 6120 

C 

C ***COMPUTE THE TIME LOSS UN THE FREEWAY FOR A NONDETOUR SITUATION 
6 110 TIM£L=ZONEL( lA , IC)/SP££0( IH)-ZONtL( I A, IC ) /SPEEDN ( IHI + DELAYC IHJ 

TIMEL=TIM£L+TEMP3 
C 
C ***SET THE RATIO OF THE FREEWAY NORMAL VOLUME TO THE TOTAL VOLUME EQUAL TO 1 

FACTi=l 
C 
C **«I IS THE TIME LOST TO A FREEWAY MOTORIST IN MINUTES TO THE NEAREST MINUTE 

6120 CONTINUE 
I=ABS(TIMEL)*60+.5 
IF(I.EQ.0)GUT0 6100 
IF(I .GT. 40)1=40 

C 

C ***ACCUMULATE THE WEIGHTED VALUES OF TIME LOST 

DO 6121 IT=1,5 

TEMPI=TEMP1+VTRATE(IT,I)*PCTADT{ IH,IT, ID,l) 

6121 CONTINUE 
C 

C ***COMPUTE THE VALUE OF TIME LOST TO FREEWAY MOTORISTS 
TEMP1=TEMP1*TIMEL 



240 



I 



c 

C ***COMPUTE THE AMOUNT OF TIME LOST BY ALL MOTORISTS IN HOURS 
COSTS( IA,IC,6,I0)=C0STS( IA,1C,6, ID) +AVOL ( IH) *DAYS*1000* 
X(TIM£L*FACTi+TIMELD*FACT2) 
C 

c 

C ***COMPUTE THE VALUE OF TIME LOST FOR ALL MOTORISTS 

COSTS ( IA,ICt5f IU)=C0STS(lA,IC,5f ID)+AVOL(IH)*OAYS*I0OO* 
X(TEMPI*FACT1+TEMP2*FACT2) 
6100 CONTINUE 

IFIQUEUE.EQ.OGOTO SI'tO 
C 
C ***MAKE ADJUSTMENT TO TIME LOSS AND TIME COST FOR VEHICLES LEFT IN QUEUE 

TEMP2=C0MV0T*PCTAUT( 24,6 , ID, 1 J 

TEMPl=UUEUE/CAP{LANES-»-i)*.5 

I = TEMPl*60-»--5 

IFd.EQ. 0)1=1 

IFd.GT. 40)1=40 

00 6130 IT=l,5 

TEMP2=TEMP2+VTRATE{ IT, I ) *PCT A0T( 24, IT, 10, 1 ) 
6130 CONTINUE 

C0STS(IA,IC,5tID) = C0STS( I A, IC, 5, 1 0) +TEMP 2*TEMP l«QU£UE*iOOO*OAYS 

C0STS<IA,IC,6,ID)=C0STS( I A, I C, 6, I D) *-TEMP 1*QU£UE* 1000*DAYS 
6140 CONTINUE 
C 
C 

C SUBROUTINE ACCID 

C 
C 
C ***INITIALIZE NORMAL ACCIDENTS ON THE DETOUR TO ZERO 

TEMP 3=0 
C 
C *** SET TEMP6 EQUAL TO THE AVERAGE ZONE LENGTH 

TEMP6=Z0NEL( IA,IC) 
C 

C ***IF THE TRAFFIC IS DETOURED THE ZONE LENGTH IS THE DISTANCE 
C *»*BETWEEN INTERCHANGES 

IF(IC.EQ.LAN£S.ANO.OVER( 12, I A) .£Q. 0) TEMP6=DE TOUR ( I ) 
C 
C ***COMPUTE THE NORMAL ANNUAL ACCIDENTS UN THE FREEWAY 

TEMP 1=ACD( LANES, 1 ) +ACD(L ANES,2 ) *ALOG{ TEMP6) ♦ACO( LANES, 3) 
X*ALOG( VOLUME (1)*2000*ABS( I D-l-SPL I T { 1) /lOO) ) 
C 
C ***T£ST FOR DETOUR 

IFtlC. EQ. LANES. AND. OV£R( 12, IA).EQ.0)G0T0 6210 
C 
C ***GET SUBSCRIPT FOR ACCIDENT EQUATION COEFICIENTS 

I=LANES-IC 
C 
C ***SET FACTOR FOR MORE THAN ONE SHOULDER TO 1 

FACT3=1 
C 
C ***IF ALL LANES ARE CLOSED SET SHOULDER FACTOR EQUAL TO NUMBER OF SHOULDERS 

IF (I .EQ.0)FACT3=0VERa2,IA) 



241 



c 

C *««IF ALL LANES ARE CLOSED SET ACCIDENTS EQUATION COEFICIENTS SUBSCRIPT TO I 

IFil .EQ.O) 1=1 
C 
C **«COMPUTE THE ANNUAL ACCIDENTS FOR THE CLOSURE SITUATION 

T£MP2=ACD( I,li+AC0{I,2)*AL0G(ZGNEL( I A, IC))+ACD{ 1,3) 
X*ALOG( (V0LUME( l)*2000*ABS( I D-l-SPL I T( i } / 100) ) /FACT 3) 
C *** SKIP THE COMPUTATION UF ACCIDENTS ON THE DETOUR 

GOTO 6220 
C 

C *** SET THE SUBSCRIPT FOR THE ACCIDENTS EQUATION COEFFICIENTS FOR THE DETOUR 
6210 I=4+DET0UR(7) 

IF(I .GT. J) 1=7 
C 
C ***COMPUTE THE ANNUAL ACCIDENTS FUR THE DETOUR ROUTE WITH FREEWAY TRAFFIC 

TEMP2=ACD( I, 1)+ACD(I,2)«AL0GID£T0UR(2) )+ACO( 1,3) 
X*ALOG( ( DETOUR (4)+ VOLUME ( i) )«2000*ABS( I D- 1-SPLI T ( 1 ) / 100) ) 
C 
C ***COMPUTE THE NORMAL ANNUAL ACCIDENTS FOR THE DETOUR 

TEMP3=ACD( I, 1)+ACD{I , 2 ) *ALOG (DETOUR ( 2) )+ACD{ 1,3) 
X*ALOG(DETOUR(4)«iOU0*ABS( ID-1-SPLIT( 1)/100)) 

TEMP3=EXP(TEMP3)/2 
C 
C ***COMPUTE THE ANNUAL INCREASE IN ACCIDENTS CAUSED BY THE CLOSURE 

622 TEMPl=£XP(TEMP2)/2-EXP(TEMPl)/2-TEMP3 
C 
C ***INCREASED ACCIDENTS MAY NOT BE NEGATIVE 

IF { TEMPI. LT.O) TEMP 1=0 
C 

C «** INCREASED ANNUAL ACCIDENTS IS FACTORED BY THE PORTION OF YEAR 
C ^♦*WH1CH THE CLOSURE WAS IN EFFECT 

TEMPb=TEMPl/36i> 

DO 6230 IH=IBE&IN, lEND 
C 
C *««eONVERT ACCIDENTS/DAY TO ACCIDENTS /HOUR 

TEMPl=TEMP5*PCTADT{ IH,7, ID,1)*DAYS 
C 
C ««*SET INCREASED ACCIDENTS OF DETOUR ROUTE TRAFFIC TO ZERO 

TEMP 3=0 
C 
C ***COMPUTE DECELERATION RATE OF FREEWAY MOTORIST 

FACT1=(SPEEDN( IH )**2+SPE£D { I H) **2) /( 2*SC ZONE) 
C 
C «**IF A DELAY EXISTS DECELERATE TO ZERO 

IF (DEL A Y{ IH).GT.0)FACT1=SPEEDN(IH)**2/(2*SCZ0NE) 
C 
C «** COMPUTE THE INCREASE ACCIDENT RATE DUE TO DECELERATION 

T£MP2=-1.32+-002*FACT1 
C ♦♦♦INCREASED ACCIDENT MAY NUT BE NEGATIVE 

IF(TEMP2.LT.0)T£MP2=0 
C 
C **♦ CONVERT ACCIDENT RATE TO ACCIDENTS 

T£MP2=TEMP2/1000*HV0L( IH) ♦SC ZONE *D AYS 



{ 



242 



C ***IF ALL LANES ARE CLOSED AND NO SHOULDERS ARE OPEN SKIP DETOUR 

IFdC.NE.LANESJGOTO 6231 

IF(OVER( 12,IA).GT.0)G0T0 6231 
C 
C ***CUMPUTE THE DECELERATION RATE OF TRAFFIC ON THE DETOUR 

FACT2=lSPE£D0nH)*#2-SPEED(IH)**2)/(2*SCZ0NE) 
C 
C «**IF A DELAY EXISTS DECELERATE TO ZERO 

IF ( DELAY ( IH).GT.0)FACT2=SP£EDD(IHJ**2/(2*SCZGNE) 
C 
C ***COMPUTE THE ACCIDENT RATE DUE TO DECELERATION ON DETOUR 

TEMP3=-1.3 2+.002*FACr2 
C 
C ***ACCIDENT RATE MAY NOT BE NEGATIVE 

IF(TEMP3.LT.0)TEMP3=0 
C 
C ***CONV£RT ACCIDENT RATE TO ACCIDENTS 

TEMP3=TEMP3/1000«DVOL{ IH J *SC ZONE*DAYS 
C 
C ***CUMPUTE THE TOTAL INCREASED ACCIDENTS 

6231 T£MP4=T£MP1+TEMP2+TEMP3 
C 
C ***ACCUMULATE ACCIDENTS FOR YEAR 

ACDTSt ICJ=ACDTS{ IC)+TEMP4 
6230 CONTINUE 

GOTO 5001 
5100 CONTINUE 

DJ 6050 IC=ltLAN£S 
C 

C **«CONVERT ACCIDENTS FOR YEAR TO COSTS AND HOLD BY ACTIVITY 
C **«AND CLOSURE 

C0STS(IA,IC,3,ID)=C0STS(IA,IC,3,ID)-i-ACDTS(IC)*AAC0ST 
C 
C *«*HOLU POLUTION DAYS 

COSTS(IA,ICt7tID)=P0LUTE(IC) 
6050 CONTINUE 
C 
C **«BRANCH TO APPROPRIATE FREEWAY TYPE 

G0TG(5910,5920,5930) ,KP 
C 

C **«FOUR LANE DIVIDED 
C 

5910 CONTINUE 
C 
C ***ACCUMULATE COSTS FOR ALL MOTOR PARAMETERS 

DO 5911 J=2,7 

TEMP1=C0STS( IA,l,J,ID) 
C 
C ***CLQSE BOTH LANES AND DETOUR TRAFFIC 

CGSTS(IA,1,J,IDI=C0STS{IA,2, J,ID) 
C 
C ***CLOSt ONE LANE AT A TIME 

C0STS(IA,2,J,ID)=TEMP1*2 



243 



C ***TEST FOR COMPUTABLt CRUSSOVER 

IF(CROSS(l).fcU.OiGDTO 5000 
C 
C ***CLOSE BOTH LANES AND CROSS OVER TO ONE LANE OPEN 

C0STS<IA,3,J,ID)=TEMPl*(CROSS(2)/CR0SS(l))*2 
5911 CONTINUE 

GOTO 5000 
C 

C ***SIX LANE DIVIDED 
C 

5920 CONTINUE 
C 

C ***ACCUMULATE COSTS FOR ALL MOTOR PARAMETERS 

DO 5921 J=2,7 

TEMPl=COSTS( IA,1,J»ID) 

T£MP2=CGSTS(IA,2,J,ID) 
C 
C ***CLOSE ALL THREE LANES AND DETOUR TRAFFIC 

COSTS( IA,lf JfID)=COSTS( IA,3, J,ID) 
C 
C ***CLOSE TWO LANES THEN CLOSE ONE LANE 

COSTS( IA,2,J,ID)=TEMP2>TEMP1 
C 
C ***CLOSE ONE LANE AT A TIME 

COSTS! lA t3tJ,ID)=TEMPl*3 
C 
C ***TEST FOR COMPUTABLE CROSSOVER 

IF(CR0SS(2).EQ-0)G0T0 5000 
C 
C ***COMPUTE CROSS OVER FACTOR FOR ONE LANE CLOSED 

TEMP 3=CR0SS{ 3) /CROSS (1) 
C 
C **«COMPUTE CROSS OVER FACTOR FOR TWO LANES CLOSED 

TEMP4=CR0SS(3i/CR0SS(2) 
C 
C **«CLOSe ALL THREE LANES AND CROSS OVER TO ONE LANE OPEN 

COSTS ( IA»4f Jf ID) =T EM PI* T EM P3+TEMP2*T EM P4 

5921 CONTINUE 
GOTO 5000 

C 

C ***EIGHT LANE DIVIDED 

C 

5930 CONTINUE 
C 
C ***ACCUMULATE COSTS FOR ALL MOTOR PARAMETERS 

DO 5931 J=2,7 

T£MP1=C0STS{ IA,1,J,ID) 

TEMP2=C0STS<IA,2,J,ID) 
C 
C ***CL0SE ALL FOUR LANES AND DETOUR TRAFFIC 

C0STS(IA,l,J,ID)=C0STS(IA,4, J,ID) 
C 
C ***CL0SE THREE LANES THEN CLOSE ONE LANE 

COSTS! IA,2tJ,IDJ=C0STS(IA,3, J, I0)+TEMP1 



244 



-»CLOSE TWU LANES AT A TIME 
COSTSi IA,3tJ,IU)=TEMP2*2 

»**CLUSt UNE LANE AT A TIME 
CUSTS( IA,4, J,10)=TEMP1*4 

♦♦♦TEST FOR COMPUTABLE CROSSOVER 
IF(CR0SS(2),EQ.0}G0T0 5000 

♦♦♦CLOSE ALL FOUR LANES AND CROSS OVER TO TWO LANES 
COSTS ( IA,5,J,ID)=TEMP2^(CK0SS(4)/CRGSS{2) ^♦2 

5931 CONTINUE 

5000 CONTINUE 
RETURN 
END 



245 



CHART TITLE - PROCEDURES 





/ 


/ 








1 


01 












M 


= I 


I 




MO = 3 








I 
I 








I 


02 


U I 






H 


10 I 

I. I 




INITAL 


H 
H 


10 1 






H 


11 I 






H 


I 

I 

I 03 


12 I 






H 


19 I 
I. I 




OPPARA 


H 

H 


10 1 






H 


11 I 






ri 



-» JPRINT .NE. 



13 I 






19 I 




RPRINT 


I. I 






10 I 






U I 

« 


- 




100 


- 


I 
— >I 

1 NOTE 


* * * 


* 


»***«« 


* 


COi'^TINUE 


« « * 


* 


« « * * 4 « 
I 
I 
I 








14 I 






19 I 




YEAR 


10 I 






U I 
















I 

I 08 


* 




HALT * 



RETURN TO SYSTEM 



216 



CHART TITLE - SUSKOUTINE INITAL 



/ INITAL / 



02.02 >* 



»««ENO OF DATA TEST 
VARIABLE 



**«C4P4CTIES BY 
EXPRESSWAY TYPE AND 
CLOSURE 



**»JESIGN SPEED 



♦**TRAFF IC 
DISTRIBUTIONS 
BALAi'JCING INDICES 



*«»ALLOWABLE 
OCCUPAiviCY INTERVAL 



*«*DEFAULT VALUES 
FOR THE SIMULATION 
PROCESS FOR THREE 
PAVEMENT TYPES 



•♦♦TRAFFIC 

DISTRIBUTION BETWEEN 
TRIP PURPOSES 



»»*1NPUT INITIAL AND 
FINAL ANALYSIS YEAR 
VOLUME, AM PEAK SPLIT 
AND % T 



/ READ FROM DEV / 
/MI / 

/ VIA FORMAT / 

/ 8 / 

/ INTO THE LIST / 



->* 



I 

1 NOTE 02 

» LIST = ■ • 

» (VOLUME! J), « 

• SPLIT(J), * 
« TRUCKS! J) ,J = « 

• 1,2) « 
*********** 

I 
I 

**«INPUT ANALYSIS 
YEARS, PAVEMENT 
TYPE, PROJECT LENGTH 
IN MILES, AND PA 

***TriICKNESS FOR 
SURFACE, BASE AND 
SUBGRADE 

*** 
PAVEMENT TYPES 

*** 1, 

CONCRETE 

*** 2. 

BITUMINOUS 

*** 3, 

COMPOSITE 

I 
I 
I 03 

/ READ FROM DEV / 
/MI / 

/ VIA FORMAT / 

/ 9 / 

/ INTO THE LIST / 



I NOTE 0* 
*********** 

* LIST = NYEARS, » 

* KP, ITYPE, * 
» PROJLN, THICK!, * 

* THICK2, THICK3 » 
*********** 

I 
I 

I 05 
« « 

I LANES = KP t I I 

* * 

I 

I 

I 
***ESTABLISHMENT OF 
THE DEFAULT OPTION 
FOB WORKSITE 
SIMULATION GIVEN 

I 

I 

I NOTE 06 
*«««*«»*»*« 

* BEGIN DO LOOP * 

* 1050 lA = 1, 7 « 
**«****«**« 

I 

1< 

I NOTE 07 
*********** 
« BEGIN 00 LOOP * 
« 1051 J = 1, 5 * 
*********** 

I ■ 
>l 

1051 I 08 

« : * 

I SIMIIA.J) = I 

I SSIMI lA.lTYPE.J) I 
^ « 

I 

I 
I 

* 09 

* * 

» * 

NO * • 

— * END OF 00 * 

* LOOP? » 



END OF DO 
LOOP? 



*«*ESTABL 
OPTION FOR 



SH OEFALUT 
CAPACITY 



NOTE 11 
*********** 

* BEGIN 00 LOOP * 

* 1060 J = 1, 5 * 
*********** 

I 

10.13 >I 

I 12 



CAP(J) = 
CCAP(J,KP1 



->* 

I 



* 


* 


NO 


* END OF 00 




*-♦ 


* LOOP? 


* 


1 


» » 




I 


* * 




I 






• •« • 


lYES 




10 






12 






.... 








♦♦♦INITIALIZE 






REMAINDER OF TRAFFIC 


DISTRIBUTIONS 






1000 I NOTE 


14 


******** 


» 


* * 


• CONTINUE 




♦ 


*«*«**♦* 


* 


♦ ♦ 


I NOTE 


15 


♦ *#«**** 


* 


♦ ♦ 


♦ BEGIN 00 LOOP 


♦ 


♦ 1010 IT = 1, 


6 


♦ 


♦ ***♦**« 


♦ 


* * 



OIREC 
I DENT 



I 
EST FOR 
TIONS 1C2 
ICAL 

I 

I 

I 



CQMPU 
FO 



TED GO TO 
IT 



1032 
1020 
1020 
1020 
1032 
1020 



11.02 I 

10.17 I 

10.17 I 

10.17 I 

11.02 I 

10.17 I 



IF OUTSID 

10. 16^ — 
1020 

* * * ♦ * 

* CON 

* * * * ♦ 



** INITI 
DIRECTION 



♦ * * * * 

♦ BEGIN 

♦ 1030 I 

♦ ♦ ♦ ♦ ♦ 

11.01 



I 
I 

I 
E THE RANGE 

I 
>I 

I NOTE 17 

****** 
TINUE * 

• ♦♦♦*♦ 

I 

I 

I 
ALIZE 

2 

I 

I 

I NOTE IB 

****** 

DO LOOP ♦ 
H = I, 24 ♦ 

****** 

I 
>I 

I 19 



I PCTADTI1H,1T,2,1) I 
I = I 

I PCTAOT(IH.ir,l,ll I 



2V 



CHART TITLE - SU8RUUTINE INITAL 





10.19- 


— >* 








1030 


* 01 








* * 








* 


* 








* 




* 


NO 




• END OF 00 




*-+ 




« 


LOOP? 


« 






* 


» 
* * 

lYES 




*lo' 

19 




10.16»- 


— >I 








1032 


1 NOTE 


02 


• 


• * * 


« » » * 


* 


* * 


* 


CONTINUE 




* 


* 


» ♦ » 


* » * * 

1 


* 


* * 


I 

*» INITIALIZE FINAL 


VOLUME DISTRIBUTIONS 

1 






1 

1 NOTE 


03 


« 


* « * 


* * « * 


♦ 


* * 


* 


BEGIN DO LOOP 


* 


« 


1031 


IH = I, 


2* * 


• 


♦ » » 


• « • * 
I 


* 


« * 


'" 





— >I 
1 




0* 



I PCTADTI IH,IT,1,2( 
I 

I PCTAOTI IH,IT,1,1) 
I 

I PCTADTI IH, IT, 2, 2) 

I 

I PCTADTI IH, IT, 2,1) 

« 

I 
I 



END OF DO 
LOOP? 



* NO 

END OF 00 *-+ 

LOOP? » I 

» » I 

* * I 

♦ .... 

lYES . 10 . 

I . 16 . 

I .... 



I 
I 

*« DETERMINATION 
AN AASHO BASED AN 
18 KIP AXLES FACT 

I 

I 



OF 
NUAL 
OR 



COMPUTED GO TC 
FOR ITYPE 



I 1100 


11.08 I 


I 1101 


11.09 I 


I 1101 


11.09 I 


1 
1 





>• 

I 

IF OUTSIDE THE RANGE 



1 
I 
•♦ AASHO BASED 
ACCUMULATED 18 KIP 
AXLES TO 1.5 PSI AS A 
FUNCTION THIC 
I 

11.07 >I 

1100 I 08 



I RHO = 

I .88*ITHICK1 

I 1)»»7.35 

» 

I 
I 



** AASHO THICKNESS 
FACTOR FOR BITUMINOUS 
PAVEMENTS 



11 


.07* — >« 
1101 I 


09 


1 
I 

I 

1 


THICK = 

.*4*THICK1 ♦ 

.l',*THICK2 ♦ 

.1»THICK3 




I 
1 

*• AASHO 6ASE0 
ACCUMULATED 18 KIP 
AXLES TO 1.5 PSI AS 
FUNCTION THIC 

I 


A 




1 
I 


10 


I 


RHO = 

2.26KTHICK «■ 

11**8.9* 


I 
I 
1 




I 






1102 I 


11 


I 


ARHO = 
RHO/20000000 


1 


♦ * 
• 

* * 


1 
1105 I NOTE 12 

CONTINUE * 
********* 




I 




•* READ TYPE OF 
OVERRIDE OR END OF 
OVERRRIOES 




12 


.07*— >I 
1200 I 


13 



/ READ FROM D EV / 
/ MI / 
/ VIA FORMAT / 
/ 1 / 
/ INTO THE LIST / 



I 



I NOTE 1* 

• **«*««««•* 

* LIST = IP, END * 
*********** 

I 

I 

I 
•* TEST FOR END OF 
OVERRIDE OATA 

I 

I 



15 



» TRUE 

END .ES. *-» 

ENOVER * I 

* • I 

* * I 



FALSE . 17 
. 01 



** GO TO PROPER 
OVERRIDE ROUTINE 
*» THE OVERRIDE 
SWITCHES ARE 
SUMMARIZED AS 
FOLLOWS: 

I 

I 



>» 

I 
** I. 

HOURLY VDLUME 

DISTRIBUTION BY TRIP 

PURPOSE 

*» 2. 

PERCENT OF TOTAL 

VOLUME 8Y TRIP 

PURPOSE 

*• 3. 

DIRECTIONAL BALANCING 

SWITCH 

*• <>. 

PERMITTED OC:UPANCY 

INTERVAL BY ACTIVITY 

»* 5. A 

RANGE OF OVERRIDE 

PARAMETERS BY 

ACTIVITY 

*• 6. 

VERTICAL ANO 

HORZONTAL ALIGNMENT 

»* 7. 

VEHICLE 

CLASSIFIACTION DATA 

** 8. 

MAINTENANCE 

SIMULATION PARAMETERS 

** 9. 

UNIT OPERATING COSTS 

• » 10. 
PRINT SWITCH 

*• 11. 

PAVEMENT LANE WIDTH 
«* 12. 

INCOME LEVEL 
*• 13. 

SPEEDS FOR WALKING 
ANO TRAVELING ON 
ROADWAY BY MAI 
** 1*. 

TERMINAL PSI VALUE 
»* 15. 

DETOUR PARAMETERS 
*• 16. 

DESIGN LIFE 
** 17. 

ACTIVITY STANDARD 

• * 18. 
CLOSURE CAPACITIES 
«* 19. 
FREEWAY DESIGN SPEED 

• * 20. 
AVERAGE ACCIDENT 
COSTS 

** 21. 

VEHICLE OCCUPANCY 

»* 22. 

COMMERCIAL VALUE OF 

TIME 

** 23. 

SPEED LIMITS 

1 

I 

I 17 



I 



COMPUTED G3 TO 
FOR IP 



1201 
1203 
1205 
1206 
1208 
1209 
1210 
1212 
1220 
1225 
1226 



12.04 I 
12.13 I 
12.20 I 
13.01 I 
13.13 I 
14.01 I 
14.07 I 
14.12 I 
14.19 I 
15.03 I 

15.05 I 



I 
I 
I 
OUTSIDE THE RANGE 
I 
I 
I 18 



IP 



IP - 11 



I 



I 
I 
I 
1 / 

/12.01 



2i)8 



CHART TITLE - SUBROUTINE I O T 4L 



II. Id >« 



COMPUTED GO TO 
FUR IP 



PACKET NUMBER 



****« PACKET NUMBER 



I 12^7 


I 1228 


I 1229 


1 1230 


I 1231 


I 1232 


I 123<t 


1 1235 


I 1236 


I 1237 


1 1230 



15.07 I 

15.0V I 

15.11 I 

15.13 I 

15.15 I 

16.01 I 

15.07 I 

16.09 1 

lo.U I 

16.13 I 

16.15 I 



»« READ DIRECTIONi 
VOLUME LEVELtC TRIP 
PURPOSE DISTRIBUTION 



11.17«-->* 
1203 I 



13 



/ READ FROM OEV / 
/ MI / 
/ VIA FORMAT / 
/ 4 / 
/ INTO THE LIST / 



*♦ SET INDICATOR TO 
COMBINE AM t PH PEAKS 



ll.lT— >» 
1205 I 



IF OUTSIDE The range 





1 


02 




1 P = IP 


- 11 I 


1 
I 

I 03 


COMPUTED GO TO I 
FOR IP 1 

1239 16.17 I 


F 


I 

I 

I 

OUTSlDt 

I 


THE RAiMGE 


I 
t»*v9 PACKET NUMBER 



I 
I 

» kEAD T.<IP 

URPOSE, DIPECTlUN, 

OLUrlE LEVELiC HUURtY 

ISTRIBUTION 

♦»*SHlTCHtS FOR TRIP 

URPOSE 

*** 1 . 

UkK TRIPS 

*** 2. 

ERSUNAL BUSINESS 

RIPS 

*** 3 , 

OClAL-RECREATiONAL 

RIPS 



scnaoL TRIPS 

»** 
VACATION TRIPS 

*** 
COMMERCIAL TRIPS 
I 
11.17* — >I 
1201 I 



Ct 



I READ FROM DEV / 
/MI / 

/ VIA FORMAT / 

111 
I INTO THE LIST / 

I 
1 
I NOTE 05 

♦ ***»*«**** 
« LIST = IT, ID, « 

• LEVEL, (Ztl I, I = « 

* 1.24) * 

*»**9*9««** 
I 
I 
I 

»» TEST FOR END OF 
HOURLY DISTRIBUTION 
OVERRIDE 

I 

I 



->* 
I 



* » TRUE 
« IT .EQ. *-+ 

« * I 

» * I 

» * I 

* .... 

IFALSE . 11 . 

I . 13 . 

I .... 

I 1200 

I 

I 

I 
** SET INDEX TO 
INDICATE OVERRIDDEN 
DISTRIBUTIONS 

I 

I 

1 06 
* * 

I IBALI IT, ID, LEVEL) I 
I =1 I 

# # 

I 
I 
I 

** REPLACE OLD WITH 
NEW DISTRIBUTION 

I 

I NOTE 09 

« BEGIN no LOOP * 

* 1202 I = 1. 2^, * 

1 
>I 

I 10 

I PCTADTI I,1T,I0, I 
I LEVEL) = Z(I ) I 

I 
I 

1202 » 11 

* * 
» * 
NO ♦ • 

— « END OF DO • 

* LOOP? * 



I 
I 
I 

I 

I 
»* GET NEXT HOURLY 
DISTR I8UTI0N 

I 

I 

I 12 



I 

I 

I NOTE 1* 

* LIST = ID, LEVEL, • 

* (Z(I) ,1 = 1,6) * 



I 
** TEST FOR END OF 
TRIP PURPOSE 
DISTRIBUTIONS 
OVERRIDES 

I 

I 

I 



I 

I 1 

I 

I 

I 

** REPLACE OLD WIT 
NEW TRIP PURPOSE 
DISTRIBUTION 

I 

I 

I NOTE 



* * « * « 



» * » * 



» BEGIN DO LOOP • 
« 120* I = 1, 6 • 

I 
>I 

I 17 

« « 

I PERCNT{I,IO, I 
I LEVEL) = Z( I) I 
* « 

I 
1 
I 



NO * 

* END OF DO 

* LOOP? 



I 
i 

I 
I 
I 

I 

** GET NEXT TRIP 
PURPOSE DISTRIBUTION 
OVERRIDE 

I 

I 

I 19 



i 



249 



CHART TITLE - SUBROUTINE 



«•*** PACKET NUMBER 



*««*« PACKET NUMBER 



02 



11.17 >* 

1206 I NOTE 01 



I 

I NOTE 

* BEGIN 00 LOOP 

* 1207 I = It 9 
»»****»»*♦ 

I 

I< 

I 
** OVERRIDE ALLOWED 
OCCUPANCY HOURS 

I 

I 

I 
»* READ ACTIVITY 
NUMBER. START TIME, 
FINISH TIME 

I 



I 



03 



/ READ FROM OEV / 
/ MI / 
/ VIA FORMAT / 
/ 2 / 
/ INTO THE LIST / 



I 
I 

I NOTE 0* 

* LIST = « 
» lINOCCtI ,J) , J = * 

* 1,3) 4 

I 



I 

•♦♦IF OCCUMPANCY 
TIME FOR ALL 
ACTIVITIES IS 
INPUT, MNOCCI 1, 11 = 10' 
THE 

♦♦♦THE DEFALT OPTION 
IS OVERRIDEN 

I 

I 

I 

♦ 05 



INOCCd, 1) 
► .EQ. 10 



I TRUE 

I 

I 

I 

I 

I 

I 



I iNOCC(ia,i) 



•♦ TEST FOR END OF 
OCCUPANCY HOURS 
OVERRIDES 

I 

I 



->♦ 
I 



> ♦ TRUE 

INOCCII.l) ♦- + 

" .EO. ♦ I 

♦ ♦ I 

♦ ♦ I 



FALSE . U . 
. 13 . 



♦♦ GET NEXT 
OCCUPANCY HOUR 
OVERRIDE 

I 

I 

I 
1207 ♦ 09 



END OF DO 
LOOP? 



I YES 

I 

I 

I 

I 

I 

I 
♦♦ DUMMY READ OF 
BLANK CARD FOLLOWING 
NINE OVERRIDES 



10 



/ READ FROM DtV / 
/MI / 

/ VIA FORMAT / 

/ ' 1 / 

/ INTO THE LIST / 



I 

I NOTE 11 

♦ ♦♦♦♦♦*♦♦♦• 

♦ LIST =11 ♦ 

I 
I 
I 

** GET NEXT TYPE OF 
OVERRIDE 

I 



♦♦ REAO OVER 
ACTIVITY, AND 

♦ ♦♦SWITCHES 
OVERRIDE PARA 

♦ ♦♦ 
CONTINQUS CRE 
HOURS 

♦ ♦* 
LOCATION OR J 
SPACING 

♦♦♦ 
WORKLOAD MODE 

♦ ♦♦ 

WORKLOAD MODE 
ANNUAL RATE 

♦ ♦♦ 

TRAVEL TIME H 

♦ ♦♦ 
MAINTENANCE L 

♦ «♦ 

CURE TIME IN 

♦ ♦♦ 
TRAFFIC CONTR 
INSTALLATION 
HOURS 

♦ ♦* 
MAXIMUM TRAFF 
CONTROL ZONE 
IN MILES 

♦ ** 
VOLUME/CAPACI 
ALLOWED 

♦ ♦♦ 
MINIMUM TRAFF 
CONTROL LENGT 
MILES 

♦ ♦♦ 
SHOULDERS OPE 



11.17*— >♦ 

1208 I 13 

/ READ FROM OEV / 
/ MI / 

/ VIA FORMAT / 

/ 3 / 

/ INTO THE LIST / 



TYPE, 

VALUE 

FOR 

METERS 

1. 

W WORK 

2. 

01 NT 

3. 

L FACTOR 

4. 
L FIXED 

5. 

OURS 

6. 
EVEL 

7. 

HOURS 

8. 
OL 
TIME IN 

9. 

IC 
LENGTH 

10. 
TY RATIO 

11. 

IC 
H IN 





I 

I NOTE 


14 


♦ 


*««*«««* 


♦ ♦ 


♦ 


LIST = 11, lA, 


♦ 


♦ 


VALUE 


♦ 


♦ 


I 

I 


♦ ♦ 



*» TEST FOR END OF 
OVER OVERRIDES 



TRUE 

♦ -■ I- 

I 

I 

I 

. 11 . 
. 13 . 



** REPLACE ASSUMED 
VALUE WITH OVERRIDE 
VALUE 

I 

I 



>♦ 

I 1 

* 

I OVERIll,IAt = 
I VALUE 

» 

I 
I 
I 

*♦ GET NEXT OVER 
OVERRIDE 

I 

I 

I IS 



.13.13. 
... 1208 



250 



CHART TITLE - SU8R0UTINE IMITAL 



****» PACKET NUMBER 



♦••DESIGN 
ALIGNMENT, VERTICAL 
ANU HORIZONTAL 

11.17»— >» 

1209 I NOTE 01 

* CONTINUE • 
*********** 

I 

I 

I 
•♦♦REAU ALIGNMENT 
TlTPE'+GRAOe. -GRADE, 
DEGREES', MAGNITUDE 
AND MILEAGE 

I 

I 

I 02 

/ READ FROM OEV / 
/ MI / 
/ VIA FORMAT / 
/ 3 / 
/ INTO THE LIST / 

I 
I 

I NOTE 03 
*********** 

* LIST = II, 12, * 

* VALUE » 

I 
1 

•♦♦TEST FOR END OF 
OVERRIDE 

I 
I 
I 
• 0* 



TRUE 
*- + 
' I 

I 

I 

. 11 . 

. 13 . . 



♦•♦REPLACE ASSUMED 
VALUE l^ITH OVERRIDE 
VALUE - 

I 

I 

I 05 
• * 

I ALIGN! 11,121 - I 
I VALUE I 

I 
I 
I 

•♦•GET NEXT OVERRIDE 
I 
I 
I 06 



•••READ VEHICLE 
WEIGHT, PERCENTAGE 
AND COSTS, NOTE THAT 
FIRST CARD 

•••MUST BE PASSENGER 
VEHICLES 



***** PACKET NUMBER 



11.17 >♦ 

1210 I 



07 



1 IWT = I 

* * 

I 
>I 

1211 I 08 

/ READ FROM OEV / 
/ MI / 

/ VIA FORMAT / 

/ 5 / 

/ INTO THE LIST / 



I 
I 

I NOTE 09 

• LIST = I2IJ),J = ♦ 

♦ 1,3) ♦ 

*********** 
I 



♦♦♦TEST 
OVERRIDE 


FOR ENO OF 

I 


♦ 
♦ 
♦ 
♦ Z( 11 


♦ 10 

♦ 
* 

♦ TRUE 
•EQ. •-+ 

♦ I 



11 

13 



1200 
11 



* : * 

IWT - IWT + 1 



KEIGHT(IMT,1) = 
Zlll 



MEIGHTIIWT,2) 
ZI2)/100 



KEIGHTI IHT,3) = 
Z(3I 

<■ 

I 
I 



***** PACKET NUMBER 



♦♦•READ ACTIVITY AND 
SIMULATION PARAMETERS 

«•* 1. 

WORKSITE TYPE 

*•• 2. 

WORKSITE FACTOR 

♦ •• 3. 
ADO ON VALUE 

♦ •• 4. 
NUMBER OF ITERATIONS 

♦ ♦♦ 5. 
RANDOM OR UNIFORM 
LOCATIONS 

ll.l7^-->*< ♦ 

1212 I NOTE 12 

*********** 
* CONTINUE • 

*********** 

I 

I 

I 13 



/ READ FROM DEV / 
/ Ml / 
/ VIA FORMAT / 
/ b / 

I INTO THE LIST / 



I NOTE 1* 

• ♦♦♦♦♦♦*••• 

• LIST = lA, » 

• (Z(J) , J = 1,5) • 

*********** 



I 



••♦TEST FOR 


END 


OF 


OVERRIDE 

1 








I 

♦ 


15 






♦ ♦ 








♦ 


♦ 




* 




♦ 


TRUE 


♦ 


lA .Eg. 





♦ -♦ 


♦ 




♦ 


I 




* 


♦ 


I 




♦ ♦ 




1 




♦ 




.«• • 




IFALSE 


. 11 . 




I 




. 13 . 



NOTE 16 

♦ ♦♦♦♦♦♦♦♦♦♦ 

♦ BEGIN DO LOOP ♦ 

♦ 1213 I = I, 5 ♦ 

♦ ♦♦♦♦♦♦♦♦♦♦ 

I 

>I 

1213 I 17 
« * 

I SIMI IA,I) = Z<l) I 

* * 

I 
I 
I 



ENO OF DO 
LOOP? 



♦♦♦♦♦ PACKET NUMBER 



— 11.17^— >♦ 

1220 I 19 

/ READ FROM OEV / 
/ MI / 

/ VIA FORMAT / 

111 
I INTO THE LIST / 



I N3TE 2 

♦ ♦♦♦♦♦•♦•• 

♦ LIST = II, 

♦ (Z(J).J = 1,2) 

♦ ♦♦♦♦♦♦*•♦ 

I 
I 
I 
• 21 



I 
I 
I 

11 . 
13 . 



I COMPUTED GO TO I 

I FOR I 1 I 



I 1221 

I 1222 

I 1223 

I 122* 



l'V.23 I 

X'^.l', I 

15.01 I 

15.02 I 



F 


1 
1 
I 
OUTSIDE 


THE 


RANGE 


l'i.22-~>I 








1221 I 




23 



I FUEL(l) = Z( 1) I 

I I 

I FUEL (2 1 = ZI2) I 



14.22 >I 

I 



I TIRES(l) = Z(l) I 
I I 

I TIRES(2) = Z(2) I 



251 



i;'.''X<.S,'rf=.iT.*';i< 



CHAKT TITLE - SUBROUTINE INITAL 



/ 1223 


/ 




I 
I*. 22 >I 




01 


OIL(l) = 
0IL(2) = 


ZU) 
ZI2I 





/ 122't 


/ 




1 
14.22 >I 

I 




02 


SINDEX = 


21 11 


I 



.14. 19. 
... 1220 



»««4« PACKET NUWBEK 
11 

11.17 >* 

1226 I 05 

/ READ FROM OtV / 
/ MI / 

/ VIA FORMAT / 

/ 8 / 

/ INTO THE LIST / 

I 

I 

I MUTE 06 

• LIST = WIDTH * 

I 
I 



»»**» PACKET NUMBER 
14 

12.01 >« 

1229 I 11 

/ READ FROM OEV / 
/MI / 
/ VIA FORMAT / 
/ 8 / 
/ INTO THE LIST / 



* * * * 
LIST = 

« « * » 



NOTE 12 

***** 

PSIRS * 

***** 



***** PACKET NUMBER 
16 

12.01 >* 

1231 I 15 

/ READ FROM OEV / 
/ MI / 
/ VIA FORMAT / 
/ 8 / 
/ INTO THE LIST / 

I 

I 

I N3TE 16 
*********** 
» LIST = OLIFE, * 

* RLIFE * 

*********** 

i 

I 

I 



***** PACKET NUMBER 
12 



***** PACKET NUMBER 
15 



***** PACKET NUMBER 
10 


11.17 >* 

1225 I 




03 


/ READ FROM 
/ MI 
/ VIA FJRMAT 
/ 3 
/ INTO THE LIST 


DEV / 
/ 

/ 
/ 
1 


I NOTE 
********* 

• LIST = IPRINT, 

* JPRINT 
********* 

. I 


04 

* * 
« 
* 

* * 


I 






... 






.11.13. 






... 1200 





12.01 >* 

1227 I 07 

/ READ FROM DEV / 
/ MI / 

/ . VI A FORMAT / 

/ 1 / 

/ INTO THfc LIST / 

I 
I 

I NOTE 08 
*********** 
« LIST = INC * 

***«*#**#** 

I 
I 



.11. 13. 
... 1200 



12.01 >* 

1230 I 13 

/ READ FROM DEV / 
/ MI / 

/ VIA FORMAT / 

/ 8 / 

/ INTO THE LIST / 





I 

I 

I NOTE 


14 




******** 


* * 




LIST = 


* 




(OETOUR(J),J = 


* 




1.7) 


* 




******** 

1 


* « 



***** PACKET 
13 


NUMBER 


12.01 >♦ 

1228 I 


09 


/ READ FROM 
/ MI 
/ VIA FURMAT 
/ 8 
/ INTO THE LIST 


OEV / 
1 

1 
1 
1 


I 

I 





I NOTE 10 
*********** 
* LIST = WALK, * 

» TCMOVE « 

*********** 

I 

I 



I 



252 



J 



CHART TITLE - SU3RIJUTInE 



«•*»» PACKET NUMdER 
17 

12.01« — >»< 

1232 I 01 

/ READ FROM DEV / 
/ Ml / 

/ VIA FORMAT / 

/ 3 / 

/ INTO THE LIST / 

1 

I 

I NTTE 02 

• LIST = lA, II, • 

* IZIJ), J = lf3l * 

I 
, I 

• 03 



NOTE O* 

* 8EGIN DO LOOP ♦ 

♦ 1233 J =^ 1, 3 » 

I 

I 05 



PSI IA,I1, Jl - 
Z(Jl 

I 
I 
I 



END OF DU 
LOUP? 



1 



YES 



*•••* PACKET NUMBER 



12.01 >» 

1234 I 07 

/ READ FROM DEV / 
/ Ml / 

/ VIA FORMAT / 

/ 3 / 

/ INTO THE LIST / 

I 
I 

I NDTE 08 

" LIST = r 

• (CAPIJ),J =1,5) « 

I 
I 
I 



»»•♦» PACKET NUMBER 
19 

12.01 >* 

1235 I 09 

/ READ FROM OEV / 
/MI / 
/ VIA FORMAT / 
/ 8 / 
/ INTO THE LIST / 



« * « « 
LIST = 



NOTE 10 

* * « * « 
OSPEEU • 

* V « « * 



13. 

. 1200 



•«»»• PACKET NUMBER 
20 



12.01 >* 

1236 I 



11 



/ READ FROM OEV / 
/ MI / 

/ VIA FORMAT / 

/ 5 / 

/ INTO THE LIST / 



***«» PACKET NUMBER 
21 

12.01 >» 

1237 I 13 

/ READ FROM OEV / 
/ MI / 

/ VIA FORMAT / 

/ 8 / 

/ INTO THE LIST / 



I 

I NOTE 1* 

• LIST = OCWORK, » 

♦ OCSCHL • 

I 



I 



»•»** PACKET NUMBER 
22 



12.01 >* 

1238 I 



15 



/ READ FROM 0£V / 
/ MI / 
/ VIA FORMAT / 
/ 8 / 
/ INTO THE LIST / 

I 
I 

I NOTE 15 

* LIST = COMVOT » 



***** PACKET NUMBER 
23 



12.03 >» 

1239 I 17 





/ READ FROM 


DEV 


/ 




/ MI 


/ 






/ VIA FORMAT 


/ 






f 8 


/ 




/ 


INTO THE LIST 


/ 





I 
I 

I N3TE IB 
*****«•*«** 

• LIST = ♦ 

• ISLIMIT(J),J = • 

• 1.51 • 
*********** 

I 
I 



* * * * * 

* LIST 

* * • * « 



NOTE 

* « * 
AACOST 

* » • 



13. 

. 1200 



253 



CHART TITLE - SUBROUTINE INITAL 



11.15 >I 

I NOTE 01 
***»»*4**** 
* CONTINUE * 

I 

I 
I 

***ARRAYS ARE 
ESTABLISHEO FOR FULL 
DEPTH AND PARTIAL 
DEPTH PATCH SIZE 

***AND RANDOM 
LOCATIONS ALONG THE 
ROADWAY 



»« 



INITIALIZE NY AN 
ODD NUMBER AND 
Nl,N2,N3, COUNTERS 
FOR PATCH ARRAY 
I 




** DETERMINE PFACT, 
A FACTOR TO CONVERT 
F.D. PATCH LENGTHS TO 
AREA IN 

I 




I 

I 03 


I PFACT 


= WIDTH/9 I 


** TEST 
TYPE 


I 
I 
I 
FOR PAVEMENT 

1 
I 


* 04 
* * 
* * 
TRUE * * 
* I TYPE .EO. 1 ♦ 



* * 
* 
IFALSE 



** IF THE PAVEMENT 
IS BITUMINOUS THE 
ARRAY IS FACTORED BY 
TEN AND 



I . 05 

* * 

I PFACT = PFACT*10 I 

« « 

I 
>I 

106 I NOTE 06 

* CONTINUE * 

I 
I 
I 

♦» TWO RANDOM 
NUMBERS ARE GENERATED 
FOR TESTING AGAINST 
DISTRIBUTION 

I 

I 



I NOTE 


08 


**#* #*#*« 


4 4 


* BEGIN DO LOOP 


* 


* 110 11 = 1, 10 


4 


#*#**««** 


4 4 


18.05 >I 




* 09 




* * 




* « 




* Nl .EQ. * 


TRUE 


* 1000 .AND. N2 


4-t 


* .EQ. 1000 « 


I 


* 4 


I 


* 4 


I 


4 


. . • • 


"IFALSE . 


18 . 


I 


06 . 



NOTE 10 

>r444*44444 

BEGIN 00 LOOP * 

101 I = 1, 1000 * 

|:*t44*»4*4 

I 

3.04 >| 

I NOTE U 

^4444*4444 
BEGIN DO LOOP 4 

104 J = I, 2 • 

>»4«444444 
I 
I< 

I 12 



NY = NY»65539 



* 13 

4 4 



I 



(0/*) * 
•f * NY 



4 . 4 
4 

(-) 



I NY = NY t I 

I 2147483647 ♦ 1 I 



I RANDOM! J) = I 

I NY4.4656613E-9 I 



END OF DO 
LOOP? 



44 


THE F 


I 

RST RANDOM 


NUMBER IS 


CONVERTED 


TO 


A FULL 


DEPTH 


CONCRETE 




44 


PATCH 


LENGTH AND 


TO 


A PARTIAL DEPTH 


PATCH AREA 

I 






I 

I 17 



I XF = RAND0M(1)450 I 
I I 

I XP = RANDOM (1)440 I 
4 4 

I 
I 

I 

44 ONCE ANY COUNTER 
REACHES 1000 THE 
ARRAY HAS BEEN FILLED 

I 

I 

I 

« 18 



► * TRUE 
11 .EO. 1000 4 



IFALSE 

I 

I 

I 

I 

I 

I 
*» THE FULL DEPTH 
PATCH LENGTH IS 
ASSIGNED TO THE 
DENSI TY FUNCTION 
44 FOR FULL DEPTH 
PATCH SIZES AND THE 
RESULTING NUMBER IS 
TESTED 

»* AGAINST THE 
SECOND RANDOM NUMBER 

I 

I 

I 19 
4 4 

I . YD = I 

I (.186E-3) I 
I ♦( (.75*XFI*»8) ! 
I ♦(EXP(-.754XF) 1 I 

4 4 

I 
I 
I 

4 20 

4 4 
4 4 

4 4 TRUE 

4 RAN0OM(2) • 

4 .GT. YD 4 



IFALSE 

I 

1 

I 

I 

I 

44 THE ACCEPTED 
PATCH IS PLACED IN AN 
ARRAY 

I 

I 

I 21 
4 4 

I Nl = Nl + 1 I 
I I 

I PATCHF(Nl) = I 

I XF»PFACT I 

4 4 

I 

I 



>* 

I 

*« ONCE ANY COUNTER 
REACHES 1000 THE 
ARRAY HAS BEEN FILLED 
I 
— 17.18*~>1 
I 
103 4 22 



* N2 .EQ. 1000 *-♦ 



I 

I 
I 

18 . 
02 . 



** THE 


PARTIAL DEPTH 


PATCH AREA IS 


ASSIGNED TO THE 


DENSITY 


FUNCTION 


44 FOR 


PARTIAL DEPTH 


PATCH S 


[ZES AND THE 


RESULTING NUMBER IS 


TESTED 




44 AGAINST THE 


SECOND 


RANDOM NUMBER 




I 




I 23 


I 


YD = I 


I 1.474XP*EXP(-.5« I 


I XP) + .1 I 








I 
I 
I 




* 24 




* 4 


* 


4 


« 


* TRUE 


* RANDOM! 2) »-•■ 


4 


.GT. YD ♦ I 


» 


* I 




* * I 




* .... 




IFALSE . 13 . 




I . 02 . 




I . • .• 




I 108 






44 PARTIAL DEPTH 


PATCH CANNOT BE 


SMALLER 


THAN 1/2 SO. 


FT. 


I 




I 

* 25 




4 4 


4 


4 


4 


♦ TRUE 


♦ XP 


,LT. 0.5 *-♦. 


4 


» I 


4 


* I 




* * I 




* .... 




IFALSE . 18 . 




I . 02 . 




I .... 




I 108 




I 




I 




I 


** THE 


ACCEPTED 


PATCH IS 


PLACED IN AN 


ARRAY 


I 




I 

I / 



254 



CHART TITLt - SUBROUTINE INITAL 



17 


.2 6— 


->* 

I 


01 


I 


N2 


= N2 


+ 1 1 




PATCHP(M2) 


= XP I 


1 

1 

1 
** ONCE ANY CUUMTER 
REACHES 1000 THE 
ARKAY HAS bEEN FILLED 


17 


.2 2*- 


->I 




TRUE 
* 


103 

* 
NJ . 


« 02 

* 
hQ. 1000 » 



IFALSE 

I 

I 

I 

I 

I 
I 

*♦ THE SECOND RANDOM 
NUMdER IS ASSIGNED TO 
A RANDOM NUMBER ARRAY 

1 

I 

I 03 
* « 

I Ni = N3 + I I 

1 I 

1 RLOCINJ) = I 

I RANUUM(2) 1 



1 



« NO 
END OF 00 «-«• 
LOOP? * I 



. 17 
. 11 



* 


« NO 


* END OF 00 


«- + 


« LOOP? 


* I 


* * 




* « 




# 


.... 


lYES 


. 17 


I 


. 09 


1 

1 


... . 


I 
17.09 >1 




111 I NOTE 06 


«««««««« 


* * * 


* CONTINUE 


* 


I 


* * * 


1 




*« THE RANDOM 


MUMBER 


ARRAY IS SORTED 


IN 


ASCENDING ORDER 
I 
I 





I NOTE 


OB 


****j)t<t#*# 


* * 


<■ BEGIN DO LOOP 


* 


* IDS 1 = 1, 999 


* 


*#«****** 


« * 


18.14 >I 




I 


09 






1 N = I t 1 


1 






I 

I 

1 NOTE 


10 


*«**♦»*«# 


* * 


» BEGIN DO LOOP 


4c 


<■ 107 J = N, lOOC 


* 


1 


* * 


» 11 





18.20 >I 

1 



TRUE ♦ * 

t ♦ RLOCUI .GT. 

* RLOCdl * 





TEMPI 


= 


RLOCI 1) I 




RLOCI 1 


= 


RLOC(J) I 




RLUC( J) 


= TEMPI I 










I 
>I 



END Of DO 
LOOP? 



# * 






I 








I 


lYES 






^♦♦INITIALIZE THE 






HOLD FOR THE 






SIMULATION WORKLOAD 








1 

1 18 


105 « 14 




* 






* * 
* * 




I 
* 


SWORKMAI = 1 


NO 


I 


* END OF DO 


*-<■ 




I 


* LOOP? * 


1 




1 NOTE 19 


# * 


I 


* 


«*««*****« 


* * 


I 


* 


BEGIN DO LOOP * 


* 


.... 


* 


121 IH = 1, N » 


IVES 


18 . 


« 


********** 


I 


09 . 




I 
19.02 >l 


1 




* 


1 20 


I 




COMPUTED GO TO I 


I 




I 


FOR J I 


««»COMPUTE THE 




* 






SIMULATION WORKLOAD 


I 


130 18.21 1 


TO BE ASSbCIATED WITH 


I 


131 18.22 I 


EACH ACTIVIT 




I 


132 18.23 I 


I 




* 


* 


I 






I 


I NOTE 


15 




1 


********* 


* * 




I 


» BEGIN DO LOUP 


* 


IF OUTSIDE THE RANGE 


* 120 lA = 1, 7 


* 




1 


********* 


* * 




18.20 >I 

130 1 21 


I 




« 


* 






1 


TEMPI = I 
PATCHFIIW) I 










* 


* 

1 
I 
I 



— 18.15* — >« 

I 
♦♦♦DETERMINE THE 
TYPE OF HORKSITEiFULL 
DEPTH, PARTIAL DEPTH, 
LANE 

I 

I 

I 16 

* « 

I J - SIMIIA.ll I 



I 
I 

♦♦♦DETERMINE THE 
NUMBER OF ITERATIONS 
I 



N = SIMCI A,4I 



TEMPI = 
PATCHP(IH) 



I SMORKI I&l = 

I (SIMI IA,21 »■ 

I SIM(IA,3I)^N 



120 



255 



CHART TITLE - SUBROUTINE INITAL 



♦♦♦ACCUMULATE 
SIMULATION WORKLOAO 



18.21^— >* 
133 I 



19.09 >I 

I 



I SWORK(IA) = 

I SMORK(IA) <- 

I TEMP1*SIM(I A,2) 

I SIMUAf3l 



I CPLANE « 

I 0ET0UR(5I 

I /DETOUR! 7) 

♦ , 

I 
I 

I 









♦ 


NO 


END 


QF DO 




*-t 




LOOP? 


♦ 


I 


♦ 




* 




I 




♦ 


♦ 
* 




I 






lYES 

I 




Is 

20 



18.23 > 



♦ ♦ 
♦ END OF DO 

♦ LOOP? ♦ 
♦ ♦ 

♦ * 
♦ 

lYES 
I 


NO 
*-t 

*18* 
16 


I 

I 


• • • • 


I 




SUBROUTINE SPEED 
1 




I 
***DETERMI NATION 
SPEED MATRICS 


OF 


I 

♦♦•DETERMINE MAXIMUM 
AVERAGE OPERATING 
SPEED FOR FREEWAV 


1 


0* 


1 TEMPI = 
I 0.9^DSPEED 


I 


1 
I 

♦♦♦ESTABLISH THE 
NUMBER OF SPEED 
CATEGORIES 





I 

♦♦♦DETERMINE SPEED 
LIMIT ON DETOUR 
I 
I 
I 06 



I 



SLIMITILANESI 
DET0UR(3) 



I 
I 



>♦ 

I 

♦♦♦00 FOR EACH SPEED 
CATEGORY 



I NOTE 07 

♦ ♦♦♦♦»♦♦♦♦♦ 

♦ BEGIN DO LOOP ♦ 

♦ 550 IC = l, N ♦ 

♦ ♦♦♦«♦♦♦♦♦♦ 

I 
20.17 >I 

♦♦♦HOW MANY LANES 
OPEN TO THE MQTOREST 
I 
I 
I 08 



I M = LANES 



IC 



I 



I 

I 
I 
♦♦♦MINUS IS FREEWAY, 
ZERO IS DETOUR 
I 
I 
I 
♦ 09 



(0) ♦ 
+-♦ 

I ♦ 
I 

I 

19 . 

II . 



1 



♦♦♦LANE CAPACITY 
COMPUTATIONS 

>♦ 

560 I 10 

«__ * 

I CPLANE = I 

I CAPdO/LANES I 

« _______ « 

I 
1 
I 



.20.01. 
... 562 



.20,02. 



256 



CHART TITLE - SUflROUTlNE I N I T AL 



19.09 >I 



CPLANE = 
CAP( IC)/M 



i. 10* — >I 

563 1 NOTE 



*#**♦*##*** 

I 

I 

I 
»««C0'1PUTE SPEEO AT 
CAPACITY 

I 

I 

I 03 



TEMP2 = 

12.0*CPLANE t 

.!)«CPLAiME**'..46 



1 

I 

»*OETE«MINE MAXIMUM 
EED LOSS 

I 

I 

I 04 



TEMP3 = TEMPI 
TEMP2 



I 

«»*Da FOR ELEVEN 
INCREMENTS OF THE 
VOLUME-CAPACITY RATIO 

1 

I 

I NOTE 05 



***** 



* * * 



« BEGIN DO LOOP 

* 551 I = L, 11 

*#**#***• 
1 

20.16 >I 

1 
•♦•DETERMINE A 
VOLUME 

I 
I 



I FACT2 = ( 1 - 

I 1)»CPLANE/10. 

1 

I VC = FACT2/CPLANE 

* 

I 
I 
I 
•••ESTABLISH 
CONSTANT SPEEO LOSS 
I 
I 
I 



I 



TEMP4 = 
(.4*FACT2 
10)*VC 



I 
I 

***OETERMINE TOTAL 
AVAILABLE SPEED LUSS 
TU CAPACITY SPEED 

I 

I 

I 08 



TEMPS = TEMP3 
TEMP* 



I 






■>* 

I 



-• TEMP5 .LT. 



ITRUE 
I 
I 
I 
I 
I 

I 10 
4 * 

I TEMP5 = 1 

* * 

I 

>I 

I 

•••DETERMINE SPEED 
LOSS TO CAPACITY 
SPEEO 

I 

I U 
* * 

I TEMP6 = I 
I VC«*25«TEMP5 I 
* * 

I 

I 
I 

♦••COMPUTE AND HOLD 
SPEED 



SP( IC, I) = I 

TEMPI - TEMP* - I 
TEMP6 i 



I 
I 

•••DETERMINE SPEED 
FOR SPEED LIMIT 
I 
I 
I 13 



TEMP 7 = I 

SLIMITI ICI^.9 - I 

3.6^VC I 



1 
I 

•••TEST FOR MI 
SPEED AND HOLD 
MIMIMUM 

I 

I 

I 



SPI IC, I ) .GT. 

• TEMP7 * 



I SPI IC. I I = TEMPT I 



-20. 1*^ — >* 





• 


NO 


END OF DO 




• -♦ 


LOOP? 


• 


I 


• • 




I 


• • 

* 




' 


lYES 




20 


I 




06 



END OF 00 •-♦ 
LOOP? • I 



lYES . 19 
.1 .08 
I .... 

I 

I 
I 
I 

SUBROUTINE INOCC 
1 

I 

•* CREATION OF THE 
IHOUR ARRAY FOR 
OCCUPANCY TIME 
•* CREATE A 
OCCUPANCY ARRAY FOR 
EACH ACTIVITY 

I 

I 

I NOTE 18 
******«••♦• 

• BEGIN DO LOOP • 

* 1342 lA = I, 7 • 
****#•***♦• 

I 
21.25 >I 

I 
•« ZERO INDEX SO 
DEFAULT OCCURS IF 
ACTIVITY IS NOT 
I DENT IFIED 

I 

I 

1 19 



I 



INDEX = 



I 
***IF THE CREWHOUR 
VARIABLE 'OVERIl.IA)' 
IS EQUAL TO 24 

•••THEN ASSIGN I'S 
TO THE IHOUR ARRAY 
FOR ACTIVIY lA 
I 
I 

• 20 



OVERIl.IA) 
• .EO. 24 





I 




21 


1 


INDEX = 


1 


I 




I 







I NOTE 22 

• •••*****4c 

BEGIN DO LOOP * 

1341 IH = 1, 24 * 

****#*««4i* 

1 

I< 

1 23 



IHOURt IHiIA) 
INDEX 

I 
I 
I 



END OF DD » + 

LOOP? » 



INDEX .EQ. 1 



IFALSE 

I 

1 



•* SEARCH FOR A 

MATCH TO ACTIVITY 

NUMBER 

I 

T « 

I NOTE 

«****«**• 

* BEGIN DO LOOP 

• 1343 I = 1, 10 
***•**••• 

I 

21.10 >l 

I 

• 27 



* INOCCII.l) 
* .ME. lA 



I 

I 

I 

I 

I 
•• ESTABLISH A 
"FROM", "TO" 
OCCUPANCY RANGE 

I 

I 



I 
I 
I 

21 
25 



I 
I 
I 

21 

10 



I INI = INDCCII 


.2) I 


I IN2 = INOCCII 


>3) I 



257 



CHART TITLE - SUBROUTINE INITAL 



20.^8 >* 

*» THE "FROM" 
OCCUPANCY HOUR CANNOT 
EXCEED THE "TO" 
OCCUPANCY HOUR 

I 

I 

I 

• 01 



FALSE * « 
* INI .GT. IN2 



ITRUE 

I 

I 

I 

I 

I 

I 



I 

»* SET INDEX TO 
EQUAL I SO THE 
DEFAULT ROUTINE iS 
BYPASSED 





I 
I 


03 


, 


INDEX 


= I I 










I 
I 




** 


I 
ASSIGN 


TO I HOUR 


FOR 


EACH HOUR WHEN 


ROAD CAN BE 

1 


OCCUPIED 




I 
I 


NOTE 0* 


« * 


* « * <( 


* * * if * 


4 


BEGIN UO LOOP * 


* 13*5 J = 


INI, IN2 * 


* « 


* * * * 


4> * 4 « * 



I 

** THE IHOUR ARRAY 
CAN NOT EXCEED 2* 

I 

I 

I 

* 06 

* » 
FALSE * * 
* Jl .GT. 2** » 



ITRUE 
1 
I 
I 
I 
, I 

I 07 
« 

Jl = Jl - 2* I 

» 

I 
>I 

1345 I 08 

* 

HOURIJI.IAI = 1 I 
* 

I 

I 



->* 
I 



END OF DO 
LOOP? 



20.27 > 

1343 



END OF DO 
LOOP? 



20 
27 



* • TRUE 

♦ INDEX .EQ. 1 »- 



FALSE . 2 
. 24 



•* DEFAULT OPTION 
FOR WHEN NO ACTIVJTY 
HAS BEEN IDENTIFIED 
*• SEARCH FOR A 
HATCH TO ACTIVITY 
NUMBER TEN 
I 

I NOTE 12 

*********** 

* BEGIN DO LOOP « 

* 1346 I = 1, 10 * 

*********** 

I 

21.23 >I 

I 

* 13 



* * TRUE 
* INOCCd.l) *-♦ 

* .NE. 10 » I 



I 



IFALSE . 21 . 

I . 23 . 

I .... 

I 1346 

I 

I 

I 
* ESTABLISH A 
"FROM", "TO" 
OCCUPANCY RANGE 

I 

I 

I 14 
* * 

I INI • IN0CCII,2) I 
I I 

I IN2 = IN0CC(I,3) I 



>* 

I 
** THE "FROM" 
OCCUPANCY HOUR CANNOT 
EXCEED THE "TO" 
OCCUPANCY HOUR 

I 

I 

1 

• 15 



FALSE * * 
* INI .GT. IN2 



ITRUE 

I 

I 

I 

I 

I 

I 



I IN2 = IN2 ♦ 24 



>I 

I NOTE 17 

*********** 

* BEGIN DO LOOP • 

* 1347 J = INI, IN2 • 

* *****•**«* 

I 

I< 

I 18 



I 



Jl = J 



I 



I 
I 

I 

*« THE IHOUR ARRAY 
CANNOT EXCEED 24 



FALSE « 
* Jl .GT. 24 



ITRUE 

I 

I 

I 
I 
I 

I 20 

* * 

I Jl = Jl - 24 I 

* * 

1 
>l 

I 
»• ASSIGN 1 TO IHOUR 
FOR EACH HOUR WHEN 
ROAD CAN BE OCCUPIED 

I 

I 
1347 I 21 

* * 

I IHOUR(Jl,IAI = 1 1 
« . * 

I 
I 



->* 
I 



END OF 03 
LOOP? 



1346 * 23 

* * 

* * 

» » NO 

♦ END OF DO •-♦ 

* LOOP? * I 

* . • I 

* * I 

• • ... 
lYES . 21 . 
I . 13 . 
I .... 

I 

I 

21.U-~>I 

1349 I N3TE 24 
*********** 
* CONTINUE * 

*********** 
I 
20.25— >! 
I 
1342 » 25 

* * 

* * 

* » NO 

* END OF 03 *-♦ 

* LOOP? * I 

* » I 

* * I 

* .... 

I YES . 20 . 

I . 19 . 







SUBROUTINE RECON 




1300 1 NOTE 
» CONTINUE 


26 

* * 

* 

« * 






•» BALANCE 
DISTRIBUTION OF TRIP 
PURPOSES TO REFLECT 
INPUT X COM.VEH. 

I 


1 
•* FOR INITIAL AND 
FINAL YEAR 

1 


I 

1 N3TE 
********* 

* BEGIN DO LOOP 

* 1301 1 = 1, 2 


27 

* « 
* 
* 

* * 


22.11 — >I 




** FOR AM AND PH 
PEAK DIRECTIONS 

I 




I 

I NOTE 

• BEGIN 00 LOOP 

* 1302 ID - I, 2 


28 

» • 

* 

» 

• * 


I 
I 
I / 





258 



CHART TITLE - SUaftOUTINE INITAL 



21.28* 



I 



«* IMITIALIZE 
VAKIASLE TO HQLl) SJM 
UF PERCEMTAGES 

1 

I 

I 01 



I 



TEMPI 



1 



I 
1 

** SUM PERCENTAGES 
UF PASStNOER CAR TRIP 
PURPOSES 

I 

I 

I NOTE 02 



***** 



* « * * 



» flEGIN 00 LOOP » 

* 1103 IT = 1, S * 

• ♦******•** 

I 
>I 

I 03 

« 1 

1 TEMPI = TEMPI + I 
I PERCNTdT, 10,1 ) I 
« « 

I 
I 



1303 



•0^ 



EMo OF no 

LOOP? 



«* E 
CURRE 
PASSE 
PURPO 



I 

STAB LI 
CT I O.J 
■\I'jE« C 

ses 
1 
I 



SH 

FACTOR FUR 

AR TRIP 



ACTl = 

l»TRUC 
/TEM 



( 1 - 
KSI I ) I 
PI 



*• C 
CAR T 
PERCE 



I 
I 

I 

ORRECT 

RIP PU 

imTAGES 

I 

I 

I 



PASSENGER 
RPOSE 



****** 



EGIN 

04 IT 

* * * 

I 

I 

I 



LOOP * 
= 1, 5 * 

***** 



I PER 
I PE 
I 



CNT( IT 

RCNT( 1 

♦ FAC 



ID.Ii = 
T, 10,1 ) 
Tl 



END OF on 
LOOP? 



** REPLACE ASSUMED 
PERCENTAGE OF 
COMMERCIAL VEHICLES 
WITH INPUT PERCE 

I 

I 

I 09 



I PERCNT(6, 10,1 I = 
I .01»TRUCKS( I ) 
« 

I 

I 

I 



I 



tNO 


OF 00 




• -»■ 




LOOP? 


* 


I 


* 


' 


« 
* 
* 




I 

I 






I YES 




11 

01 



* * 


NO 


* ENO UF 00 


ft- + 


* LOOP? * 


I 


« * 


1 


ft ft 


I 


* 


.... 


IVES 


21 


I 


28 


I 
I 
1 


.... 


I 
« RECONCILE 




QVEKRIOOEN 100* 




DISTRIBUTIONS FOR 




EACH TRIP PURPOSE 

I 




1 

I NOTE 


12 


********* 


* * 


* BEGIN DO LOOP 


» 


* 1305 I ^ 1, 2 


« 


********* 


* * 


24.03 >I 




I NOTE 


13 


«****««** 


* * 


* BEGIN DO LOOP 


« 


• 1306 ID = 1, 2 


« 


ft******** 


* ft 


24.02-— >I 




I NOTE 


14 



ft********** 

* BEGIN on LOOP * 

* 1307 IT = 1, 6 « 
*♦***♦**»«« 

I 
I 



— 22.14* — >« 

1 
•* TEST TO SEE IF 
DISTRIBUTION WAS 
OVERRIDDEN 

I 

I 

I 

* 15 



» I8ALI IT, ID, I ) *- 

* .eo. * 



IFALSE 

1 

I 


I 
I 
I 


16 


I TEMPI = 


I 


1 

I 

I 
** SUM PERCENTAGES 
OF OVERRIDDEN 
DISTR 18UTI0N 



I NOTE 17 
*********** 

• BEGIN DO LOOP ♦ 

* 1308 IN = 1, 24 * 
*********** 

I 
>I 

I 18 

« * 

I TEMPI ^ TEMPI ♦ I 
I PCTAOTI IH,IT,IO, I 
I I) I 



END OF DO 
LOOP? 



I 
I 
I 

«« ROUND SUM Of 
PERCENTAGES TO 
NEAREST .IX 

I 

I 



I ITEST = (TEMPI t I 
I .00051*1000 I 

« * 

I 
I 
I 

•* IF SUM OF 
PERCENTAGES NOT EQUAL 
TO 100« RECONCILE 
EACH PERCENTAGE 

I 

I 



->* 
I 



* * TRUE 

* ITEST .EO. * 

» 1000 » 



I FACT I = l/TEMPl I 

* * 

I 
I 

I NOTE 24 
*********** 

* BEGIN 00 LOOP • 

* 1309 IH = I, 24 ♦ 
*********** 

I 

22.26 >I 

I 25 



I PCTAOTI IH,IT, 10, 
I I) = 
I PCTAOTI IH, IT, 10, 
I l)*FACTl 

* 

I 
I 

I 



I 



ENO OF 00 
LOOP? 



I 

I 
I 

22 
25 



* NO 
END OF DO •-+ 

LOOP? • I 
• • I 

* * I 



YES 



22 . 
15 . 



* TEST FOR BALANCE 
OR CREATE 

DISTRIBUTION OF ALL 
TRIPS 

I 

I 

I 

• 28 



* * TRUE 
* IBAL(7,I0,I) »-♦ 

* .EQ. * I 
* • I 

• • I 



FALSE 



23 
22 



259 



CHART TITLE - SUBROUTINE INITAL 



22.28 >» 

1 
» BALANCE ALL TRIPS 
DISTRIBUTION 

I 

I 

I 01 



+ 23.08* — >* 

I 



I 



TEMPI = 



I 



*• SUM PERCENTAGES 

I 

I 

I NOTE 02 
*♦**»***»*« 

* BEGIN 00 LOOP * 

* 1310 IH = 1, 24 * 

I 

>I 

I 03 

« « 

I TEMPI = TEMPI + I 
I PCTAOTI IH,7, 10, i I I 
* » 

I 
I 



1310 



0* 



END OF DO 
LOOP? 



** ROUND SUM OF 
PERCENTAGES TO 
NEAREST .li 

1 

I 

I 


05 


I ITEST - (TEMPI 
I .0005)*1000 


♦ I 


I 





♦* IF SUM OF 
PERCENTAGES NOT EQUAL 
TO 100 RECONCILE EACH 
PERCENTAGE 
I 



I 



ITEST .EQ. 
1000 









I 
I 
1 
1 

I 


07 


I 


FACT] 




= 1/TEXPl 


I 








I 
I 

I NOTE 


08 


* 


* « « 


* 


«##««« 


* 


BEGl 


N 


DO LOOP 


* 


* 


1311 


I 


H = 1. 2-4 


* 


* 


* * « 


* 


I 

I 



09 



I PCTADTI IH,7, 10,1 I I 
I = I 

I PCTAOTI IH,7, 10,1) I 
I SFACTl I 

« * 

I 
>I 

I 
1311 « 10 



END OF 00 
LOOP? 



NOTE 11 

^********* 

BEGIN 00 LOOP * 

1312 IH = 1, 24 * 

I 

3.21 >I 

I 12 



I 


TEMPI = 





I 












I 
I 
I 


NOTE 


13 


« 


***«»* 


« « 


• » 


# 


BEGIN DO 


LOOP 


# 


* 


1313 IT = 


1, 6 


« 


« 


# « # « 4c « 

I 


» * 


* # 


*4 


ADJUST 100? 




DISTRIBUTIONS 


BY 




0' 


STR IBUTION 


OF TRIP 


PURPOSES 

I 








I 

I 




14 



I PCTAOTdHilT.IO, 

I I) = 

I PCTAOTI IH.IT, ID, 

I I )*PERCNT( IT,IO, 

I 1) 

I 

I 
*» SUM PERCENTAGES 
UF INDIVIDUAL TRIP 
PURPOSES 

I 

I 



I TEMPI = TEMPI t I 
I PCTADTI IH.IT, ID, I 
I II I 

« » 

I 
I 
I 
1313 » 16 

« « 
* * 
» « NO 

* END OF DO * 

* LOOP? * 



* * 
lYES 



>• 

I 17 

t « 

I FACTl = I 
I PCTADTI IH, 7, ID, I) I 
I /TEMPI I 
t « 

I 
I 

** BALANCE 
INDIVIDUAL TRIP 
PURPOSES DISTRIBUTION 
TO DISTRIBUTION OF A 



I NOTE 18 

* BEGIN 00 LOUP * 

♦ 1314 IT = 1, 6 * 

I 

I< 

I 19 



I PCTADTI IH, IT, ID, I 

I II = I 

I PCTAOTI IH, IT, ID, I 

I II*FACT1 I 



END OF 00 
LOOP? 



1312 * 21 

* « 

» « 
* * NO 

♦ END OF DO *-t 
« LOOP? * I 

» « I 

* * I 



YES . 23 
. 12 



* CREATE 
DISTRIBUTION OF ALL 
TRIPS 

22.28 >* 

1315 I NOTE 22 

* CONTINUE * 

I 

I N3TE 23 

* BEGIN DO LOOP • 

* 1316 IH = 1, 24 » 
*•*»*♦***»♦ 

I 

24.01 >l 

I 24 



I TEMPI = 


I 


I 

1 

I NOTE 


25 


********* 


♦ * 


.* BEGIN DO LOOP 


« 


* 1317 IT = 1, 6 


t 


I 


* * 


I 
•» ADJUST 




lOOiDISTRIBUTnNS 


BY 


DISTRIBUTION OF TRIP 


PURPOSES 

I 




I 
I 


26 


I PCTAOTI IH,IT, 10, 




I II = 




I PCTADT(IH,IT, ID 




I I)*PERCNT(IT,10, 




I ft 





I 

I 
I 

*• SUM PERCENTAGES 
OF INDIVIDUAL TRIP 
PURPOSES 

I 

I 27 

* « 

I TEMPI = TEMPI «• I 
I PCTADTI IH,IT, ID, I 
I II I 



END OF D3 
LOOP? 



I 

I 

I 

I 

I 

I 
** PERCENTAGE OF ALL 
TRIPS EQUALS SUM OF 
INDIVIDUAL TRIP 
PUTPOSES 

I 



I 



29 



I PCTADTI IH, 7, ID, I I I 

T = TEMPI I 



.24.02. 
... 1306 



260 



CHART TITLE - SUBROUTINE INITAL 



li.l'i >« 

I 
1316 • 01 



« NO 

END OF 00 «-♦ 

LOOP? * I 

• * 1 

* * I 



23.21 > 

1306 



YtS 



23 
2* 



» NO 

END OF 00 *-* 

LOOP? « 1 

* * I 

• ♦ 1 



YES 



. 11 

. 14 



« NO 
END .JF 00 *-»• 
LOOP? • 



iVES . 2 
I . 1 
I 
I 

I 

I 
♦ TEST FOR AVERAliE 
MORNING AMO EVENING 
PEAKS 

I 

I 

I 

* 0<V 



NOTE 05 

* BEGIN 00 LOOP * 

* 1318 I = 1, 2 * 

I 

2<..ll >I 

I NOTE 06 

* BEGIN 00 LOOP • 

* 1319 IT = 1, 7 » 

I 

2*. 10 >I 

I NOTE 07 

* BEGIN 00 LOOP ♦ 

* 1320 IH = I, 2't ♦ 

I 



— 24.07* — >» 

I 
*• AVERAGE MORNING 
ANO EVENING PEAKS 

1 

I 

I 08 

« « 

I PCTADTI IH.IT, 1,1 ) 

I 

I (PCTAOTl IH, IT, 1, 

I I ) * 

1 PCTAOTl IH, IT, 2, 1 ) 

I )/2 

I 

I PCTAOTl IH, IT, 2,1 ) 

I 

I PCTAnT(IH,IT,l,I ) 

»___ _ _ 

I 

I 

I 



< ♦ END OF 00 

« LOOP? 



ENU OF DO *-♦ 

LOOP? • I 

« • I 

* » I 



YES 



24 
07 



* NO 
ENO OF 00 *-• f 

LOOP? • I 
♦ • I 

» * I 



I YES 
I 
I 
I 



24 
06 



>I 

1331 I NOTE 12 

• CONTINUE * 

I 
I 

« CONVERT DAILY 
OISTR IBUTION OF 'tr IP 
PURPOSES TO HOURLY 
DISTRIBUTION 
I 

I 
** INITIAL ANO FINAL 
YEAR 

I 

I 

I NOTE 13 

• BEGIN 00 LOOP * 

• 1321 I = 1, 2 • 

I 

I 



24.13* — >* 

•* A.M. ANO P.M. 
PEAK DIRECTIONS 

I 

I 

I NOTE 14 

* BEGIN 00 LOOP * 

* 1322 10 = I, 2 * 



l< 

I 
** EACH HOUR OF THE 
DAY 

I 

I 

I NOTE 15 

* BEGIN DO LOOP * 

• 1323 IH = I, 24 » 

1 

I< 



** ESTABLISH DAILY 
TO HOURLY CONVERSION 
FACTOR 

I 

I 

I 16 

4 _ _ « 

I FACTl = I 
I l/PCTAOTI IH,7,ID, I 
I II I 

* « 

I 
I 

I 

•* EACH TRIP PURPOSE 

I 

I NOTE 17 
*********** 

• BEGIN 00 LOOP » 

* 1324 IT = 1, 6 * 

1 



I 



18 



I PCTADT(IH,IT,IO, I 

I I) = I 

I PCTAOTl IH, IT, ID, I 

I I)*FACTl I 



END OF DO 
LOOP? 



* NO 

ENO OF DO * 

LOOP? » 



I 



END OF 03 
LOOP? 



* 
* ENO OF 03 
* LOOP? 

» ♦ 

lYES 


» NO 

• -+ 
• 1 

I 

. 24 

. 14 






» CREATE BASE YEAR 
ANO YEARLY IMCREME^^T 
ARRAYS 

I 


I 

I 


23 



I MYEARS = NYEARS - I 
I 1 I 



I 

I N3TE 24 

* ********** 

* BEGIN 00 LOOP * 

* 1328 ID = 1, 2 • 
*********** 

I 

25.04 >I 

I NOTE 25 

* BEGIN 00 LOOP * 
» 1329 IT I 1, 7 * 

25.03— >l 

I NOTE 26 
*********** 

* BEGIN 00 LOOP • 

* 1330 IH = 1, 24 * 
*********** 

I 
25.02 >I 

I 
*» COMPUTE YEARLY 
INCREMENT 

I 

I 



I 


27 


I PCTAOTl IH.IT, 


10. I 


I 21 =■ 




I ipctaotiih.it 


.10, I 


I 21 - 




I PCTAOTl IH, IT, 


ID, I 


I DI/MYEARS 





I 
I 

** COMPUTE BASE YEAR 
DISTRIBUTIONS 

I 

I 

I 

I / 

/25.01 



261 



CHART TITLE - SUBROUTINE INITAL 



->* 
I 



I PCTAOTI IH 


IT 


ID, I 


I U = 






1 PCTA,JT( IH, 


IT 


10, I 


I 1) - 






I PCTAOTI IH 


IT 


in, I 


I 2) 







END OF DO 
LOOP? 



. 24 
. 27 





* 


NO 


END OF DO 




*- + 


LOOP? 


* 


I 


* * 




1 


# * 




I 


* 




.... 


lYES 

I 




2-^ . 
26 . 



* 
* END OF DO 
* LOOP? 

« ♦ 
* * 

lYES 


» NO 

*-+■ 
* I 

. 2** 
. 25 




.... 






** CONVERT INITIAL 
AND FINAL VOLUME TO 
BASE YEAR AND YEARLY 
INCREMENT 

I 


1 
1 


05 



V0LUME(2I = 

( VOLUME! 2) - 

VOLUMEI 1) )/MYEARS 

VOLUME! 1) = 

VOLUME(l) - 

VOLUME! 2) 



I 

** CONVERT INITIAL 
AND FINAL % 
COMMERCIAL TO BASE 
YEAR 6 YEARLY INCRE 
I 



>« 

I 07 

4c 

TRUCKSI2) = 

!TRUCKS!21 - 

TRUCKS! II )/MYEARS 



TRUCKSIl) = 

TRUCKS!!) - 

TRUCKSI2) 

,^ 4c 

I 

I 

I 
*» CONVERT INITIAL 
AND FINAL AM. PM. 
SPLIT TU BASE YEAR £ 
YEARLY INCR 

I 

I 

I 08 

4c # 

SPLIT(2) = 

ISPLITI2I - 

SPLIT ll))/MYEARS 



SPLITIl) = 

SPLITIl) - 

SPLIT12) 



I 

I 09 



262 



CHART TITLE - NGN-PROC FUJK AL STATEMENTS 



I 



INTEGEK COSTS( 7,5.8,21 

COMMON ARHU, CAP(5), COSTS, 

CWT, DV0L(2',), HV0L(24), ID, 

IH0UK(2'i,7) > ITVPE, lY, KP, 

LANES, Ml, MO, NYEARS, 

0C0STS(65, 2) , PATCHFI IJOUI , PATCHP ( 1000 J , PROJLN, 

RLOC(laOO), SIM(7,5), SP(5,in, SPEEDD(24), 

SPEEDN(2<H, SPLIT(2), SH0RK(7), TRUCKS(2). 

V0LUME(2), VTRATE(5,40I , Z0NELI7,',) 

COMMON/ASSUME/ AL1GN(3,6), AACOST, COMVOT, 

0ET0UR(7I, OLIFE, FU£LI2). HRS(7,2«,4), 

H^OKMZ), IDIR, INC, IPRINT, 

IWT, JPRINT, OCSCHL, OCWIRK, 

QIL(2), OVER(12,7), PC TAUT ( 2<,, 7,2 , 2) , P S I 7, 3, 3) , 

PSIRS, RATEI, RLIFE, SINOEX, 

SLIMIT(5), TCMOVE, TIRES(2I, TLEVEL(7), 

WALK, [^lOTH, WEIGHT(10,3) 

DIMENSION CCAPI 5,3) 

DIMENSION INDCC(10,3) , I BALI 7, 2, 2), Zl 24), SSI Ml 7, 3, 5) 

DIMENSION RANDaMI2),PERCNTI6,2,2) 

DATA ENUVER/' tND'/ 

DATA CC AP/1. 7,. 8. -f., 0.0, 0.3, 3. 8, 1.7, .8, 6. ,0.0, 5. 7, 3. 3, 1.7, .8, 8./ 

DATA DSPEED/70./ 

DATA IBAL/2a»0/ 

DATA IN0CC/30*0/ 

STATEMENT FUNCTION DEFINITION: IN3CC ( I 0, I) =10 

STATEMENT FUNCTION DEFINITION: INOCCU0,2)=7 

STATEMENT FUNCTION DEFINITION: INOCC ( 1 0, 3)=18 

STATEMENT FUNCTION DEFINITION: IN0CC(9,1)=3 

STATEMENT FUNCTION DEFINITION: I NOCC I 9 , 2 ) = 15 

STATEMENT FUNCTION DEFINITION: I NOCC ( 9 , 3 )= 18 

DATA SSIM/l.,2.,l.,3.,2.,l.,3.,l.,3.,l.,3.,3.,3.,3.,l.,3.,l., 

3.,2., 3.,3. , L., l.,a. ,12. ,3. ,10. ,1500. , l.,12. ,. 1,0.,0. ,0.,15aO., 

10.,0.,0.,12.,3.,0.,1500. ,o.,o.,i.,o.,io.,o.,o.,o.,o.,o.,o.,a., 

0.,0. ,0.,0. , 1., 0. ,10. ,0. ,0. ,100. 0,1 00. 3,1., 250. 0,100. , 100.0,10., 

100.0,2 50.0,130., I. ,1.,1., 10. ,100.0,1., 1. ,250. 0,1 00., 1., 10., l.,l. 

l.,2.,l.,l.,2.,l.,l.,l.,l.,l.,l.,2.,l.,l.,l.,2.,i.,l.,2./ 

DATA PERC NT/. 331,. 184, .2 8'*,. 001,. 095, .100, 

.331, .139, .284, .001,. 095,. 100, 

.331, . 189,. 284, .001,. 095,. I 00, 

.331, . 189, .284, .001, .095,. 100/ 

1 FORMAT! 12, A4) 

2 F0RMAT(3I2,24F3.3) 

3 FQRMAT(2I2,3F7.2) 

4 FORMAT! 212, 6F3. 3) 

5 FQRHAT(3F5.0) 

6 FORMAT(I2,5F10.2J 



263 



CHiRT TITLE - SUBi^OUTINE 0PP4RA 



Od.O'i >* 

SUBROUTINE VTME 



»»»INITI ALIZE SCALE 
FACTORS, INTERCEPTS, 
ANJ CCJEFFICIENTS OF 
BENEFITS E 



** I IS THE MAXIMUM 
ACCURATE VALUE JF 
TIME FUR WORK TRIPS 



I 

I 

** THE VALUE OF TIME 
PER VEHICLE 
CONVERSION FACTOR FOR 
WORK TRIPS IS 
** THE PASSENGERS 
PER VEHICLE 

I 

I 

1 02 



->* 



I FACTl 


= OC W RK 


1 








I 

I 
I 
DO LOOP FOR EACH 


PASSENGER 


CAR TRIP 




PURPOSE 


1 






I 

I NOTE 


3 


* * » * V 


V « « 9 « 


« 


* BEGIN 


00 LOOP 


« 


* IblO IT = I, i 


* 


¥ * * ¥ » 


« « * « 4: 


9 


30.21 — 


>I 




* COMPUTE HOURLV 




VALUE OF 


TIME SAVINGS 


BETWEEN 5 


AND l<. 




MINUTES 







I NOTE O', 
« xt * « « * 



BEGIN 
lb20 J 



DO LOOP 
= 5, 1", 



<■* FACT2 IS 


THE 


VALUE UF THE 


BENEFITS 


FUNCTION FOR 


A TIME 


SAVINGS J 

I 




I 
I 


05 



I FACT2 - B0( IT) 
1 J*(BT( IT) + 

1 6IT11T)*INC) 



I 
I 

«« FACTO IS THE 
PERCENTILE OF 
MOTORISTS HAVINJ ZERO 
BENEFITS 

I 

I 



I PACT3 = 

I 1.0/1 1. + 

I EXP( AC( IT )«FACT21 



»♦ FAC 
PERCENT 
MOT OR IS 
AVERAGE 



T<, IS THE 
ILE UF 

TS HAVING THE 
BENEF IT 

I 

I 

I 06 



FACT 

F 



( l.O 
ACT3I/2 



I 



• * FAC 
AVERAGE 
ALL MOT 
A TIME 



I 

I 

I 
T5 IS THE 

BENEFIT OF 
ORISTS HAVING 
SAVIGS 

I 

I 

I 09 



I FACT 

I FACT 

I ALOGI 

I FACT 



5 = (1.0 - I 
3I*(FACT2 t I 
FACT',/! 1.0-1 
'iD/ACUT)) I 



I 
I 

♦* VTRATE IS THE 
VALUE OF TIME PER 
VEHICLE IN DOLLARS 
PER HOUR 

I 

I 10 

I VTRATEI IT, J) = I 

I FACT5/10C/J*60* I 
I FACTl I 



END OF DO 
LOOP? 



I YES 
I 



I 
I 
I 

« COMPUTE THE 
HOURLY VALUE OF TIME 
SAVINGS BETWEEN I* 
AND I MINUTES 

I 

I 

I 
«• B02 IS THE 
INTERCEPT OF THE 
BENEFITS FUNCTION FOR 
A TIME SAVING 
** GREATER THE I', 
MINUTES 

I 

I 



I 



B02 = BOI IT) * 

l-V.OtlBTII T) - 

BTPdTl * 

(BITIIT) - 

BITP(IT) l»INC) 



I 

•* FACT6 IS 

VALUE OF THE 

FUNCTION FOR 

SAVINGS 

•* BETWEEN 5 

»IINUTES AT 1* 

MINUTES 

I 
I 
I 



THE 

BENEFITS 
A TIME 

AND 14 
5 



I FACT6 = 801 IT) 


^ I 


I 1<..5*( BT( IT) + 


1 


I BIT(IT)*INCI 


1 






1 
I 

** FACT7 IS THE 




PERCENTILE OF 




MOTORISTS HAVING 


ZERO 


BENEFITS FOR A TI 




«* SAVINGS OF 1* 


.5 


MINUTES USING THE 




BENEFITS FUNCTION 


FOR 


A TIME 




** SAVINGS BETWEEN 5 


AND 14 MINUTES 
I 




1 
I 


15 



I FACT7 = I 

I 1.0/1 1.0 + I 

I EXP(AC( IT)«FACT6) I 

I ) I 

I 
I 

I 
** TEMPI IS THE • 
AVERAGE BENEFIT OF 
ALL MOTORISTS HAVING 
A TIME SAVING 
** OF 14.5 MINUTES 
USING THE BENEFITS 
FUNCTION FDR A TI ME 
SAVINGS BET 
«* 5 AND 14 MINUTES 

I 



I 



15 



MPl = (1.0 - 
CT7)*(FACT6 

ALOGKl * 
FACT7)/(1 - 
CT7) )/AC(ITl 



I 
I 
I 

»* FACTS IS THE 

VALUE OF THE BENEFITS 

FUNCTION FOR A TIME 

SAVINGS OF 

*• GREATER THEN 14 

MINUTES AT 14.5 

MINUTES 

I 

I 



I FACTS = B02 + I 
I 14.5*(BTP( IT) «■ I 
I BITP( IT)»INC) I 



** FAC 
PERCENT 
HOrORIS 
BENEFIT 
** SAV 
MINUTES 
BENEFIT 
A TIME 
*» OF 
14 MINU 



19 IS THE 
ILE OF 

TS HAVING ZERO 
S FOR A TI 
INGS OF 14.5 

USING THE 
S FUNCTION F0« 
SAV 

GREATER THAN 
TES 

I 

1 

I 18 



FACT9 = 
0/11.0 ♦ 
P(ACP( IT) 
FACTS) ) 



I 
I 

I 

** TEMP2 IS THE 
AVERAGE BENEFIT OF 
ALL MOTORISTS HAVIi^G 
A TIME SAVING 
«» 14.5 MINUTES 
USING THE BENEFITS 
FUNCTION FOR TIME 
SAVINGS GREATER 
** MINUTES 

I 

I 

I 19 
« * 

I TEMP2 = (1.0 - 

I FACT9)*(FACT8 ♦ 

I ALOGKl <- 

I FACT9)/( 1 - 

I FACT9()/ACP(IT)) 



I 

I 
TE THE 
T TO BE 
THE BENEFITS 
FOR 

SAVINGS OF 
HAN 14 

S THE 
T NECESSARY 
LUES OF TIME 

EATER THAN 
S TO MAKE 

OF TIME A 
S 

I 

I 

I 20 



»* COMPU 
ADJUSTMEN 
ADDED TO 
FUNCTION 
*« TIME 
GREATER T 
MINUTES 
»• TEMP3 
ADJUSTMEN 
TO THE VA 
SAVINGS 
*» OF OR 
14 MINUTE 
THE VALUE 
CONTINUOU 



TEMP3 = TEMPI - I 
TEMP2 I 



I 
I 
I 

• COMPUTE THE 
HOURLY VALUE OF TIME 
FOR TIME SAVINGS 
BETWEEN 15 AND 

* I MINUTES 



I 

I NOTE 21 

* «•***»»*«* 

* BEGIN DO LOOP * 

* 1530 J = 15, I * 

*********** 



30.06 >I 




«* FACT2 IS 


THE 


VALUE OF THE 


BENEFITS 


FUNCTION FOR 


A TIME 


SAVINGS J 




I 


1 


/30.0I 





264 



CHART TITLE - SUBROUTINE 0PP4RA 



29,22— >» 
I 



I i=ACT2 = B02 * I 

I J«(BTP(IT) ♦ I 

I aiTPI 1T)«1NC) I 



I 
I 
I 

*» FACTS IS THE 
PERCENTILE OF 
MOTORISTS HAVING 
BENEFITS 

I 


ZERO 


I 
I 


02 


I FACT3 = 
I 1.0/(1.0 ♦ 
I EXP(ACP(ITI 
I «FACT2)) 


1 
I 
I 
I 


I 

I 

I 
*« FACT4 IS THE 
PERCENTILE OF 
MOTORISTS HAVING 
AVERAGE BENEFIT 


THE 


I 
I 


03 


I FACT* = (l.O ♦ 1 
1 FACT3)/2 1 


I 

I 

I 
*« FACTS IS THE 
AVERAGE BENEFIT Of 
ALL MOTORISTS HAVING 
A TIME SAVING 

I 


I 
I 


0* 



I FACTS = (1.0 - 
I FACT3)«(FACT2 t 

I AL0G(FACT4/ (1.0 - 

I FACT*))/ACP(IT) ) 
I + TEMP3 

I 
I 
I 

** VTRATE IS THE 
VALUE OF TIME PER 
VEHICLE IN DOLLARS 
PER HOUR 

I 



I VTRATEdT.J) = I 
I FACT5/100/J»60» I 
I FACTl I 
# 4 

I 

I 
I 



END OF DO *-+ 

LOOP? * I 

* * I 

* * I 



YES 



. 29 
. 22 



*» THE VALUE OF TIME 
PER VEHICLE 
CONVERSION FACTOR FOR 
SOCIAL-RECREAT 

I 

I 



>• 

I 

»» PERSONAL 
8USSINESS. AND 
VACATION TRIPS IS 

I 

T 



I 
I 
I 

«* THE VALUE OF TIME 
PER VEHICLE 
CONVERSION FACTOR FOR 
SCHOOL TRIPS I 
*• THE PASSENGERS 
PER VEHICLE 

I 

I 

I 

* 09 



I TRUE 
I 
I 
I 
I 
I 

I 10 
* « 

I FACTl = OCSCHL I 

9 # 

I 

>I 

I 

• THE HOURLY RATE 
FUR ALL TIME SAVINGS 
GREATER THAN I I S THE 
SAME AS 

» THE RATE FOR A 

TIME SAVINGS OF I 
MINUTES 

I 

I 

I NOTE II 
*********** 

• BEGIN DO LOOP • 



1540 J 

^ * « * 



I, 



*0 * 

* * * * 



I 

>I 

I 12 

I VTRATEdT.J) = I 

I VTRATEI IT, I I I 

1^ « 

I 
I 



1540 



13 



END OF DO 
LOOP? 



« THE HOURLY RATE 

FOR A TIME SAVINGS OF 

LESS THAN 5 MINUTES 

IS THE R 

* OF TIME SAVINGS 

FOP A 5 MINUTE TIME 

SAVINGS 

I 

I 



>• 

I NOTE 15 

* BEGIN 00 LOOP * 

« 1550 J = 1. 5 • 

I 
>I 

I 16 

9 « 

I VTRATEdT.J) = I 

I VTRATEdT.S) I 



END OF DiJ 
LOOP? 



I 


COMPUTED GO TO 




I 


FOR IT 








I 


1560 


30. 


19 




1 


1570 


30. 


20 




1 


1570 


30. 


20 




1 


1560 


30. 


19 




I 


1510 


30. 


21 














IF 


I 
I 

I 
OUTSIDE THE 

I 


RANGE 


** 


I 

INITIALUE 








SUBSCRIPT FOR 


MAXIMUM 


ACCURATE VALUE 


JF 






TIME RATE FOR 








*« 










SOCIAL-RECREAT 


I3NAL 




AND SCHOOL TRIPS 






30.18* — >I 










1560 I 






9 


I 
* — 


I ^ 20 






I 



I 

I 



»* INITIALIZE 
SUBSCRIPT FOR MAXIMUM 
ACCURATE VALUE OF 
TIME RATE FOR 
•• PERSONEL 
8USSINESS AND 
VACATION TRIPS 

30.1B*~>» 

1570 I 20 

* * 

I I = 30 I 

« » 

I 



+ 30.18*~>I 



END OF 03 *-♦ 

LOOP? « I 

♦ • I 

♦ • I 



SUBROUTINE 


OPCDST 

I 








I 

I N3TE 


22 


* 


« • « * 


» * * * * 


« 


* 


BEGIN 


30 LOOP 


• 


* 


L98L I 


= I, 65 


* 


* 


* « « * 


» « * * * 

I 


* 






I 


23 




OCOSTSI 


1,1) = 


I 


I 


ocosTsi 


1 .2) =0 


I 



YES 



29 
04 



END OF 03 
LOOP? 





I YES 




* « 


•DETERMINE 




OPERATION PARAMETER 




FOR 


65 SPEEDS 






1 NOTE 


25 


* • 


***»«•«« 


* 


* 


BEGIN 00 L30P 


* 


* 


1400 IS = I. 65 


* 


* * 


**«****• 


* 


33 


.27— >I 


26 








I 


SS = IS 


I 


* — 


I 
I 
I 


-« 


*« 


4FUEL CONSUMPTION 


IN 


GALLONS PER 




PASSENGER CAR VEHIC 


LE 


OER 


HOUR 

I 
I 
I 
I / 





265 



CHART TITLE - SUBROUTINE OPPARft 



30.27— 



I 



• »»INIT1ALUE 
TEMPORARr VARIABLES 
I 
I 
I 01 



TEMPI 



TeMP2 = 



I 



I 
I 

I 
**»FUEL CONSUMPTION 
MODEL FOR LEVEL 
TANGENT SECTIONS 
I 



I 



02 



I TtMP3 = I 

I EXP(-.*8<^'V ♦ I 

I .0285*15) I 

« * 

I 
I 
I 

•**FUEL CONSUMPTION 
MODELS FOR POSITIVE 
GRADES 

I 

I 

1 NOTE 03 

* BEGIN 00 LOOP * 
» 1405 I = 1, 6 * 

I 

I< 



04 



* ALIGNd.I) 

« .EQ. 



IFALSE 
1 



« 



= - .45 + 
.0278*15 



B = .0348 ♦ 
.0214*AL0G(SSI 



* — 



« 



I 
I 
I . 

•••ACCUMULATE 
PRORATED FUEL 
CONSUMPTION FOR 
POSITIVE GRADES 

I 

I 

I 



06 



I TEMPI = TEMPI ♦ I 
I EXP(A ♦ I 
I B*I)*ALIGN(1, I) I 
I /PROJLN I 
« * 

I 

I 

I 
•••ACCUMULATE 
MILEAGE ASSOCIATED 
WITH POSITIVE GRADES 

1 

I 

I 07 
* * 

I TEMPZ = TEMP2 ♦ I 
I ALIGN! 1,1) I 



I 
I 



-31. 04^ — >• 
I 
1405 • 08 



END OF DO 
LOOP? 



•••FUEL CONSUMPTION 
MODELS FOR NEGATIVE 
GRADES 

I 

I NOTE 09 

• •*•**««««# 

• BEGIN DO LOOP • 

• 1406 I = 1, 6 * 
***•*«*•*** 

I 

31.18 >I 

I 

• 10 

« * 

• * 

* • TRUE 
• ALIGN! 2, I) • 

• .EQ. • 



I 

I 

I 

I 

I 

I 
•••COMPUTE FLOAT 
SPEED 

I 

I 

I U 
# « 

I TEMP5 = 3 ♦ 7*1 I 

* * 

I 



•••INITIALIZE 
TEHP4.THE INCREMENT 
OF FUEL CONSUMPTION 
ABOVE FLOAT SPE 

! 

I 

I 12 



I TEMP4 = I 

I' 

I 

I 

•••TEST TO DETERMINE 
IF THE FLOAT SPEED IS 
EXCEEDED 

I 

I 

I 

• 13 



• IS .LT. TEMP5 •- 



31.13 >• 

I 

•••COMPUTE THE 
INCREMENT OF FUEL 
CONSUMPTION ABOVE 
FLOAT SPFEO 
I 



I TEMP4 = TEMP3 - I 
I EXP(-.4844 <■ I 

I .02a5*TEMP5) I 

* « 

I 

1 
I 

•••COMPUTE THE FUFL 
CONSUMPTION 
ASSOCIATED WITH 
SPEEDS BELOW FLOAT SP 



1416 


I 


15 


1 TEMP6 = 
I 


- l/l 1.51 
•IS) 


♦ 1 


1 

1 

I 
•••ACCUMULATE 
PRORATED FUEL 
CONSUMPTION FOR 
POSIT IVE AND NEGATIVE 
GRA 



16 



I TEMPI = TEMPI t I 
I (TEMP6 + I 
I TEMP4)*ALIGN(2, I) I 
I /PROJLN I 
# « 

I 



•••ACCUMULATE 
MILEAGE ASSOCIATED 
WITH POSITIVE AND 
NEGATIVE GRADES 

I 

I 

I 17 
« « 

I TEMP2 = TEMP2 «• I 
I ALIGN(2,I) I 



« 


• NO 


• END OF 00 


• -4- 


• LOOP? 


* I 


* • 




« * 




* 


. . • ■ 


I YES 


. 31 




. 10 




.... 














•••FUEL CONSUMPTION 


MODELS FOR HORIZONTAL 


ALIGNMENT 





I NOTE 19 
**••*•••*•• 

• BEGIN 00 LOOP • 

* 1407 I = 1, 6 • 

I 
I 



->•<- 
I 



TRUE * 
* ALIGNI3, I) 

• .EO. 





21 


I C = 1 




1 A = - .483 - 
I .087*ALOGIC) 




I B = EXP(-3.562 ♦ 
1 .044^1 ) 




I 

I 

I 
•••COMPUTE EXCESS 
FUEL CONSUMPTION 
ASSOCIATED WITH 
HORIZONTAL ALIGNME 

1 




I 


22 


1 TEMP4 = EXPIA ♦ 
I B^IS) - TEMP3 


I 
I 


I 
I 
I 

•••TEST TO BE SURE 
ANr EXCESS IS 
POSITIVE 

I 




* 23 

* # 
* * 
TRUE • • 
< * TEMP4 .LT. • 





•••ADO EXCESS FUEL 
CONSUMPTION 
ASSOCIATED WITH 
HORIZONTAL ALIGNMENT 

I 

I 

I 24 

t « 

I TEMPI = TEMPI ♦ I 
I TEMP4*( AL IGN( 3, I) I 
I /PROJLN) I 



--31.20^-->I 
I 

1407 • 25 

* « 

t • 

* •NO 
• END OF 03 ♦ 

• LOOP? • 



• • 

IVES 



266 



CHART riTLb - SUBROUTINfc UPPAPO 



31.25 >« 

I 

♦ ♦•riGLiJ Fuel 

CONSUMPTION FOR ".000 
La. l^ASSENGER VEHICLE 

PEK Hjuf> ar s 
I 
I 

lt08 I 01 
# * 

I ocasT( is,i ,1) = I 

I TEMPI + 1 

I TEMP3«(Pt<0JL <! - I 
1 TEMPZI/PROJLiM I 



1 

I 
1 

*»»TlKt WEAR IH .091 


INCHES OF HEAR PER 




VEHICLE PEP HOUR 




•'♦INITIAL TEMPORARY 


VARIASLES 

I 




I 

I 


02 


I TEMPI = 


I 


I TEMP^ = 


I 






t 

I 

I 

««»TIRE rtEAR MOUEL 


FUR LEVEL TANGENT 




SECTIONS 




I 
I 


OJ 






I TEMPJ = 


I 


I EXP(-d.26b ♦ 


I 


I 2.22t>«AL0G( SS) ) 


I 



***riRE 


BlEAR 


MODELS 


FOR 


POSITIVE 

I 


GRADES 








I 


NOTE 04 


* * 


* * * 


* * 


» * * 


* 


* 


8EGIN 


JO 


LUOP 


* 


* 


l<flO 


I = 


It 6 


* 


* * 


« * * 


* * 
I 


* * * 


* 



ALIGNI 1,1) 
» .EQ. 



IFALSE 

I 

I 

I 

I 

I 

I 



I 
I 


A 


= 


- 8.26 
.095*1 


+ 


I 
I 


I B 

« 


= 


2 


23 - . 


015*1 


I 

.6 



I 
I 

***ACCUMULATE 
PRORATEU TIRE HEAR 
FOR POSITIVE GRADES 
I 
I 



TEMPI = TEMPI ♦ 

I EXP( A + 

0«ALOG( SSI ) 

*ALlL,N( 1,1) 

/PROJLN) 

I 
I 

♦♦♦ACCUMULATE 
MILEAGE ASSOCIATED 
HITH POSITIVE GRADES 

I 

I 

I 09 

I TEMP2 = TEMP2 «■ I 
I ALIGN(1,1) I 



END at- 00 
LOOP? 



. 32 

. 05 



I 
I 
♦♦♦TIKE WEAR MODELS 
FUR NEGATIVE GRADES 
I 
I 
I NOTE 11 

* BEGIN 00 LOOP ♦ 

♦ I'tll I = 1, 6 ♦ 
**»#***»•*♦ 

I 

32. lo >I 

I 

♦ 12 



AL IGNl 2, I ) 

» .Ea. 



♦ 

I A 


= 


- 


8. 


26 


+ .2^1 I 


I 8 


= 


2 


.2i 


- 


.07^1 I 

Kt 



I 



♦♦♦ACCUMULATE 
PRaRATEO TIRE HEAR 
FUR POSITIVE AND 
NEGATIVE GRADES 

I 

I 

I l^f 
« « 

TEMPI = TEMPI t 

I EXP( A + 
B'ALOGISSI ) 
*ALIGN(2,I ) 

/PROJLN) 



1 



>* 

I 

•♦♦ACCUMULATE 
MILEAGE ASSOCIATED 
WITH POSITIVE AND 
NEGATIVE GRADES 

I 

I 

I 15 

« « 

I TEMP2 = TEMP2 ♦ I 
I ALIGN(2,I) I 







• 


NO 


END 


OF DO 




♦ -+ 


LOOP? 


« 


I 


* 


* 




I 


« 


♦ 




I 




♦ 




. .. . 




irES 


. 


32 




I 




12 



I 

I 

I 
I 

♦ ♦♦TIRE WEAR MODELS 
FOR HORIZONTAL 
ALIGNMENT 

I 

I NOTE 17 

♦ BEGIN 00 LOOP * 

♦ 1412 I = 1, 5 • 

♦ ♦♦♦♦♦♦^^♦^ 

I 

I< 

I 13 



I 



C = I 



I 



♦ ♦ TRUE 
ALIGNI 3, I) * 

♦ .EO. * 



I A = - 3. I * 

I .59*AL0G(C) 

I B = .077 ♦ 
I .0023*1 

^ : 

I 
I 
I 

***A0D EXCESS TIRE 
WEAR ASSOCIATED WITH 
HORIZONTAL ALIGNMENT 

I 

I 

I 2 



I TEMPI = TEMPI ♦ 

I lEXPIA + B*IS) - 

I TeMP3)«IALI6NI3, 

I n/PRQJLN) 



-32.19*- 
1412 



•♦♦HOLD 
FOR 4000 
PASSENGER 
HOUR BY S 



1413 



r) OF 03 
LOOP? 



IVES 

I 

I 

I 

I 

I 

I 
TIRE WEAR 
LB. 

VEHICLE PER 
PEED 

I 

I 

I 23 



I OCOSTI 

I TE 

I TEMP3* 

I TEMP2 



S,2.l) = I 

MPl + I 

IPROJLN - I 

)/PROJLN I 



•••OIL C 
IN OUARTS 
PASSENGER 
PER HOUR 



I 
I 
1 

ONSUMPTION 
PER 
CAR VEHICLE 



CONSUMPTION 
VERTICAL 



•••OIL CO 
MODELS FOR 
ALIGNMENT 

♦••INITIAL TEMPORARY 
VARIABLES 



I TEMPI = 

I 

I TEMP2 = 

* 

I 

I 

•••OIL C9NSUHPTI0N 
FOR LEVEL TANGENT 
SECTIONS 

r 
I 



TEMP3 = 

EXPl-3.414 ♦ 

.0242«IS) 



I NOTE 26 
• *••***•*•* 





BEGIN 00 


LOOP * 




1420 1 = 


1, 6 • 


* 


«'««•••••« 




1 




33 


.05 >I 






I 


27 




TEMP4 


I 




ALIGNIl, 


1 + I 




ALIGN! 2 


I) I 




1 






I 






I 
I 


/ 



CHART TITLE - SUBROUTINE OPPARA 



32.27 >« 

I 



TRUE * * 
* TEMP't .EQ. * 



* 
IFALSE 



.01B'4«1 



1 B = .0242 ♦ 1 

I .00142*1 I 

« * 



I 
I 

♦♦♦ACCUMULATE 
PRORATtU OIL 
CONSUMPTION FOR 
VERTICAL ALIGNMENT 

[ 

I 

I 03 
« « 

I TEMPI = TEMPI * t 

I lEXPIA + I 

I S^IS)) I 

I ♦TEMP4/PR0JLN I 

« tL 

I 
I 
I 

♦♦♦ACCUMULATE 
MILEAGE ASSOCIATED 
WITH VERTICAL 
ALIGNMENT 

I 

I 04 

* « 

I TEMP2 = TEMP2 + I 
I TEMP4 I 
« « 

I 
>I 

I 
1420 ♦ 05 

♦ ♦ 



♦ END OF 00 ♦-♦ 

♦ LOOP? « 1 

♦ ♦ I 

» ♦ I 



lYES 

I 

I 


32 
27 


I 
I 




♦♦♦HOLD OIL 
CONSUMPTION FOR 4000 
LB. PASSENGER VEHICLE 
PER HOUR 8Y SP 


I 
1421 I 


06 


I OeOSTI IS,3,l) = I 
I TEMPI ♦ I 
I TEMP3^(PR0JLN - I 
I TEMP2)/PR0JLN I 



I 
I 

♦♦♦PASSENGER VEHICLE 
MAINTENANCE COST IN 
DOLLARS PER HOUR FOR 
SPEED I 

I 

I 



♦♦♦MAI 
MODEL F 
TANGENT 



— >♦ 

I 
NTENANCE COST 
OR LEVEL 
SECTIONS 

I 

I 

I 08 



EXP 
1.27 



TEMP3 = I 
(-5.828 * 1 
S^ALOGISS)) I 



♦♦♦INI 
VAR lABL 



I 

I 
TIAL TEMPORARY 
ES 

I 

I 

I 09 



I TEMPI 


= 





I TEMP2 


= 






I 
I 




♦♦♦MAINTENANCE COSTS 


MODELS FOR POSITIVE 


GRADES 

I 




I 

I NOTE 


10 


♦ ♦♦♦»*»** 


♦ ♦ 


♦ BEGIN DO LOOP 


♦ 


♦ 1430 1=1,6 


♦ 


«««««#««* 


♦ * 


33.16 >l 




♦ 11 




♦ ♦ 




♦ ♦ 




♦ ♦ 


TRUE 


♦ ALIGN(l,l) 


« 


.♦ .EQ. ♦ 





« 



« 



I A = 5.828 - I 
I .014^1 I 

I 6 = 1.278 ♦ I 
I .001*1 I 
« « 

I 
I 
I 

♦♦♦ACCUMULATE 
PRORATED MAINTENANCE 
COSTS FOR POSITIVE 
GRADES 

I 

I 

1 13 

^ 4c 

TEMPI = TEMPI ♦ 

£XP(-A * 

B^ALOG(SS)) 

♦ ALIGNd.I ) 

/PROJLN 

4c « 

I 

I 
I 

♦♦♦ACCUMULATE 
MILEAGE ASSOCIATED 
WITH POSITI VE GRADES 

I 

I 



I TEMP2 = TEMP2 + I 
I ALIGNd.I) I 



♦ 


♦ NO 


* END OF DO 


*-* 


♦ LOOP? 


♦ I 


♦ ♦ 




♦ * 






• • . • 


I YES 


. 33 . 




. 11 . 




.... 










♦♦♦MAINTENANCE 


COSTS 


MODELS FOR NEGATIVE 


GRADES 




I NOTE 17 


♦ ♦♦♦***♦ 


♦ ♦ ♦ 


♦ BEGIN 00 LOOP ♦ 


♦ 1431 I = 1, 


6 * 


♦ ♦#♦♦♦♦♦ 


♦ * ♦ 



ALIGNI2, I) 

» .EQ. 



IFALSE 

I 

I 

I 

I 
I 
I 19 

^ 



- 5.828 
.0285^l 



I B = 1.278 - I 

I .011*1 I 

4c « 



♦♦♦ACCUMULATE 
PRORATED MAINTENANCE 
COSTS FOR POSITIVE 
AND NEGATIVE GR 
1 
I 
I 20 

t ., « 

TEMPI = TEMPI * 

EXPI-4 + 

B^ALUG(SS) I 

♦ ALIGN(2, I ( 

/PROJLN 



I 
I 

♦♦♦ACCUMULATE 
MILEAGE ASSOCIATED 
WITH POSITIVE AND 
NEGATIVE GRADES 

I 

I 

I 21 

« « 

I TeMP2 = TEMP2 ♦ I 
I ALIGNI2.il I 



-33.18*~>^ 

I 

1431 * 



END OF DD 
LOOP? 



I YES 
I 
I 
I 

I 
I 
I 

♦ ♦♦HOLD MAINTENANICE 
COST FOR 4000 LB. 
PASSENGER VEHICLE PER 
HOUR BY S 



1432 



I 



23 



I OCOSTI IS,4,l) = I 
I TEMPI + I 

I TEMP3^(PR0JLN - I 
I TEMP2)/PR0JLN I 

« * 

I 
I 
I 

♦♦♦DEPRECIATION RATE 
FOR PASSENGER CARS 
PER HOUR AT SPEED IS 

I 

I 

I 
♦♦♦ANNUAL PASSENGER 
MILEAGE IS A FUNCTION 
OF SPEED IS 

I 

I 

I 24 



J 


TEMPI 
1974^1S^^ 


.489 


I 


I 

I 
I 

♦♦♦YEARS TO 
A FUNCTION OF 
MILEAGE 


SCRAP IS 

ANNUAL 




I 
I 




25 


I TEMP2 = 47.5 - I 
I 3.8B^AL0G(TEMPll 1 



I 
I 
I 

♦♦♦THE HOURLY 
DEPRECIATION RATE OF 
PASSENGER CARS IS 
( 1/LIFEMILEAGE/S 

I 

I 

I 26 



I OCOSTI IS. 4. 21 = 
I 1/((TEMP1»TEMP2) 
I /IS) 



♦ NO 
END OF DO ♦-•■ 
LOOP? * I 



30 
26 



268 



CHAhT TITLE - SUBROUTINE OPPARA 



33.27 

• (♦CONVE 
PASStNGER 
UPE RATION 
TJ CUMPOS 



*«»CCNVE 
SPEEDS 



>* 

I 

HSION OF 

CAR 

PARAMETERS 
ITE COMM 

I 

I 

I 
BT FOR o5 

I 
I 
1 NOTE 01 



m******* 



BEGIN 
1*50 I 



00 LJJP 
S = I, 65 



«««*«« 



io.O't 

• *«AQl)RE 
PARAMETER 
FUEL. TIRE 
MAINTENAN 



I 
>l 

I 
SS THE 
S 

S.OIL AND 
CE 
I 



« * # * * 



I 

I NOTE 02 
^ * * ^ m 



* rfFGIN 00 


LOOP 


» I'.Sl 


11 = 


1. * 


* » » « 


« » * * « 


36.0 3— 


->I 




«*«1NIT 


I ATE 


THE 


VEHICLE 


WEIGHT 


COUNTER 


I 

I 





I I = 


1 I 


£ 

I 

♦•♦BRANCH 


TO 


APPROPRIATE 


OPERATION 


PARAMETER 

1 




I 


0* 






I COMPUTED GO TU I 


I FOR 


11 I 






1 1 + 53 


3*. 05 I 


I 1*54 


3*. 09 I 


1 1*55 


3*. 12 I 


I 1*56 


35.01 I 


* 


.tt 



I 
I 
I 

IF OUTSIDE THE RANGE 



I 



»*»FUEL CONSUMPTION 
WEIGHT RATIO FACTOR 
COMPUTATION 
I 
3*.0** — >I 

1*53 I 05 

* « 

A = 1/1 .*6 * 

.03*4* IS - 
.00031«IS*»2) 



•*«TIRE WEAR WEIGHT 
RATIO FACTOR 
COMPUTATION 

34. 0** — >* 

1*5* I 09 

* « 

I RW = . 76 + I 
I .061*WEIGHT( I ,1) I 

* • 

I 

I 10 

« « 

I COMPUTED GO TO I 
I FOR I 1 



1 
I 

I 
IF OUTSIDE THE RANGE 
I 
I 
I 11 



***OIL CONSUMPTION 
WEIGHT RATIO FACTOR 
COMPUTATION 

3*.0** — >* 

1*55 I 12 

» « 

A = .930 ♦ 
.003«IS 

B = - .01*9 * 
.0000*«IS 



RW = 1/(A ♦ 

B*WEIGHT( 1,1)) 

« 



WEIGHT! 1,11 
» .LE. 50 • 





IFALSE 














1* 








I 


RW = 


I 


I 


3»WEIGHT( I, 1) 


I 


I 


/(30 ^ IS) 


I 
















1*52 I NOTE 


15 


« 


**«*««*« 


* * 


* 


CONTINUE 


« 


♦ 


*♦*♦**** 
I 
I 

I 


* * 
16 








I 


COMPUTED GO TO 


, 


I 


FOR I 


1 



I 
• I 

I 

IF OUTSIDE THE RANGE 
I 
• I 
I 17 



.35.20. 
... 1*59 



6 = l/( .78 * 

.U*37«IS - 
.000*7*IS»»2I 



9 



« 



I RW = EXP(-A t I 

I B*( ALUGIWEIGHTI I, I 
I 1)11) I 






>» 

I 07 

« « 

I COMPUTED GO TO I 
I FOR I I 

* 9 

I 1*57 35.09 I 

«-- — ♦ 

I 

I 

I 
IF OUTSIDE THE RANGE 

I 

I 

I 08 



i 



CHART TITLE - SUBROUTINE OPPAKA 



***MA1NTENANCE COSTS 
WEIGHT RATIO FACTOR 
COMPUTATION 



• *»HOL0 PASSENGER 
CAR WEIGHT RATIO IN 
FACT2 



S'l.O't* — >* 

litib I 01 

j, if 

FACTl = lABSlIS 
20) 

A = . 12 t 
.008'.*FACT1 

b = .315 <■ 
.002 1>FACT1 

C = .00438 + 
.000023*FACTl 



I RW = - A + I 

I B*welGHT( I ,1) - I 
I C*WE IGHTI I, 1)*»2 I 

# # 

I 
I 
I 



34.07* — >• 
1457 I 



WEIGHT! I, II 
» .LE. 50.0 « 



IFALSE 

I 

I 

I 



I RW = 4.68 + 

I .039*FACT1 t 

I .0772*IWE1GHT( I . 
1 I) - 50) 



I 
>I 

6.6 I NOTE 05 



1 

I 

I 
**«UEPRECIATION 
WEIGHT RATIO FACTOR 
COMPUTATION 

I 

I 06 
« 1 

I TEMP3 = I 

1 EXP(.163 - I 

I .03I»WEIGHT( I, 1) ) I 

» « 

I 

I 

I 07 
« * 

1 COMPUTED GO TO I 
I FOR I I 



t 

1 

IF OUTSIDE THE RANGE 
I 
1 
1 OB 



FACr2 = RW 



***MAI 
FOR PAS 
FACTORE 
INDEX 



IFALSE 

1 

1 

I 

I 

I 

NTENANCE COSTS 

SENGER CAR 

BY SERVICES 



I OCOSTdS.Il.l) - 


1 


I OCOSTI IS.Il.l) 


1 


1 »SINDEX 


I 






r 
I 
I 

♦ (•♦DEPRECIATION RATE 


FOR PASSENGER CAR 




CONVERTED TO DOLLARS 
1 


I 
1 


12 






I OCOSTI I S, 11,2) = 


1 


I OCOSTI IS, I 1,2) 


I 


I ♦WEIGHT(1,3) 


I 



I 

***IN1TALIZE 
TEMPORARY VARIABLES 
FOR THt DEVELOPMENT 
OF COMPOSITE 

***COMMERC lAL 
VEHICLE OPERATION 
PARAMETER ARRAY 
I 

>I 

1458 I 13 

« * 

I TEMPI = I 

I TEMP2 = 1 

I TEMP4 = I 
t * 

I 
I 
I 
♦♦♦INCREMENT THE 
COMMERCIAL VEHICLE 
WEIGHT CLASS 
I 

I< 

1480 I 14 



I 



I 



I + I 



I 



I 
I 

♦♦♦TEST FOR LAST 
VEHICLE CLASS 



I .GT. IWT 



IFALSE 

I 

I 

I 

I 

I 

I 
♦ ♦♦ACCUMULATE' THE 
PERCENTAGE OF 
COMMERCIAL VEHICLES 

I 

I 

I 17 
« # 

I TEMP2 = TEMP2 ♦ I 
I WEIGHT(I,2I I 



I 



♦♦♦BRANCH TO THE 
APPROPRIATE OPERATION 
PARAMETER 

I 



I 



18 



I 


COMPUTED 


GO TO I 


I 


FOR 


11 I 








I 


1453 


34.05 I 


I 


1454 


34.09 I 


I 


1455 


34.12 I 




1456 


35.01 I 



IF OUTSIDE THE RANGE 

I 

I 

1 
♦♦♦ACCUMULATE A 
COMPOSITE WEIGHT 
RATIO FACTOR FOR 
DEPRECIATION 

35.08 >I 

1461 I 19 

« ♦ 

I TEMP4 - TEMP4 * I 
I TEMP3^WEIGHT( 1,2) I 
I ♦WEIGHT(I,3) I 

I /WEIGHTI1,3) I 

t « 

I 
I 

I 

♦♦♦ACCUMULATE THE 
APPROPRIATE OPERATION 
PARAMETER WEIGHT 
RATIO FACTOR 
I 
34. 08^ — >l 

1459 I 20 



I TEMPI = TEMPI ( 
I RW^WEIGHTI 1,2) 



>« 

I 

1470 ♦ 21 



♦ TRUE 
U .NE. 4 ♦-♦ 

♦ I 
► ♦ I 



♦♦♦CON 
MAINTEN 
A PASSE 
COMPARA 

♦♦♦COS 
COMPOS! 
VEHICLE 
TEMPI 



IFALSE . 36 
I . 01 
I 

I . 1460 
I 

I 

VERT THE 
ANCE COSTS FOR 
NGER CAR n A 
BLE 

TS FOR A 
TE COMMERCIAL 
AND HOLD IN 

I 
I 
I 22 



OCOS 
♦ TE 



TEMPI = I 

T(IS,I1,1) I 

MPI/TEMP2 I 



♦♦♦CON 
DFPRECI 
FOR A P 
TO A CO 

♦♦♦COS 
COMPOSI 
VEHICLE 
TEMP2 



I 
I 

T 

VERT THE 
ATION COSTS 
ASSENGER CA* 
MPARABLE 
TS FOR A 
TE COMMERCIAL 
AND HOLD IN 



I TEMP2 = 

I OCOSTI IS, I 1,21 

I ♦TEMP4/TEHP2 


1 
I 
I 


I 

I 
♦♦♦ADD THE 
DEPRECIATION COSTS TO 
MAINTENANCE COSTS 
ARRAY FOR PASSENGE 
♦♦♦AND ADJUST FOR 
ACTUAL PASSENGER CAR 
WEIGHT 

1 


1 


24 


1 OCOSTIIS, 11,1) = 
1 OCOSTI IS, 11,1) 
1 ♦FACT2 <■ 
I OCOSTI IS, 1 1,2) 




I 
1 
1 
♦♦♦ESTABLISH THE 
COMPOSITE COMMERCIAL 
VEHICLE MAINTENANCE 
AND OEPRECI 
♦♦♦COSTS ARRAY 


I 

1 


25 


1 OCOSTIIS, 11,2) = I 
1 TEMPI + TEMP2 I 



270 



CHART TITLE - SU8K0UTINE OPPARA 



««*CUNVERT The 
OPERATIONAL PARAMETER 
FOR A PASSEMGER CAR 
TJ A COMPARA 

»«»iJPERATIUNAL 
PARAMETER FOR A 
CO.MPQSITE COMMERCIAL 
VEHICLE 

35.21 >« 

1460 I 01 
* * 

I OCOSTd S, II ,21 = I 
I OCCJSTI IS, 11,11 I 

I *TEMP1/TEMP2 I 



1 
I 
I 

**»FOUR KIP 
PASSErjGEli CAR 
AOJUSTEO FOR 
PASSENGER CAR 


ICTUAL 
WEIGHT 


I 





I OCOSTdS.Il.l) = 
I OCOSTdS.Il.l) 
I •FACT2 


I 
35.25— >I 




IfSl » 


03 



END OF 00 
LOOP? 



34 
03 



END JF 00 


«- + 


LOOP? < 


1 


* * 


I 


* * 


I 


* 




lYES 


. 34 




. 02 







***C0i4VERT THE 
OPERATIONAL 
PARAMETERS FROM UNITS 
PER VEHICLE PER HuUR 

»«*COSTS PER lOJO 
VEHICLES PER HOUR FOR 
ALL OPERATIONAL 
PARAMETERS 

I 

I 

I NOTE 05 



* * 



♦ » 



BEGIN 00 LOOP 
I'lQG IS = 1, 65 



I 



OCOSTStIS,!) = 

OCnSTSlIS,!) + 

OCOSTI IS,1, I) 

• FUELI 1)»1000 

acosTsiis.i) = 

OCOSTSdS.ll ■•• 

OCOSTI I S,2, 1) 

tTIRES( ii»iaoo 



I 



I 



ENIJ OF 00 
LOOP? 



OCOSTSI IS.l) = 

OCOSTSdS.l) <■ 

OCOSTI I S.3, 1) 

*OILl 1)*1000 

OCOSTSdS.l) = 

OCOSTSdS.l) + 

OCOSTI I 5,4, 1) 

«1000 



0C0STSIIS,2) = 

0C0STSdS,2) <• 

0C0ST(IS,1,2) 

•FUEL(2)«1000 

0CUSTSIIS.2) = 

0C0STSIIS,2) ♦ 

OCOSIdS.2.2) 

»TIRES(2»»1000 



I 
I 

I 09 


I QCOSTSIIS 


2) = 1 


I QCOSTSIIS 


2) * I 


I OCOSTdS 


3,2) 1 


I »OIL(2)*1000 I 


I OCOSTSdS 


2) = I 


I OCOSTSdS 


2) + I 


I OCOSTIIS 


4,2) I 


I »1000 I 



I 


11 


I TEMPI = 

I 

I TEMP2 = 

4 

I 


— * 



I NOTE 12 

» BEGIN DO LOOP * 

* 1495 I = 2, IWT » 

I 



—36.12* — >* 

I 13 

« # 

I TEMPI = TEMPI + 1 
I l<EIGHTd,l) 1 

I ♦HElGHTd,2) I 

I TEHP2 = TEMP2 ♦ I 
I WEIGHTII,2) I 

* « 



END OF 00 
LOOP? 



lYES 
I 

I 
I 
I 

I 
I 




271 



CHART TITLE - SUBROUTINE RPRINT 



/ RPRINT 


/ 




.05 >I 


01 


/ 




/ 



/ WRITt TO DEV / 
/ MU / 
/ VIA FORMAT / 
/ 10 / 

I 
I 
I 02 

/ / 

/ WRITE TO OEV / 
/ 'MO / 
/ VIA FORMAT / 
/ 111 / 



03 



/ WRI TE TO OEV / 
/ MO / 
/ VIA FORMAT / 
/ 44 / 
/ FROM THE LIST / 

I 

I 

I NOTE 04 

* LIST = (J, J = * 

* 1,7) * 
*********** 

1 
I 
I 05 

/ / 

/ KRITE TU OEV / 
/ MO / 
/ VIA FORMAT / 
/ 45 / 



I 

I NOTE 06 
*********** 
« BEGIN DO LOOP « 

* 1925 IH = I, 24 * 
*********** 

>I 

I 07 

/ WRITE TO DEV / 
/ MO / 
/ VIA FORMAT / 
/ 107 / 
/ FROM THE LIST / 

I 
I 

I NOTE 08 
*********** 

* LIST = IH, * 
» I IHOUR( IH,J) ,J = * 

* 1,7) * 
*********** 

I 
I 
I 
1925 » 09 



END OF UO 
LOOP? 



->» 
I 



10 

/ / 

/ WR ITE TO DEV / 
/ MO / 
/ VIA FORMAT / 
/ 10 / 

I 
I 
I II 

/ / 

/ WRITE TO DEV / 
/ MU / 
/ VIA FORMAT / 
/ 112 / 

I 
I 
I 12 

/ / 

/ WRITE TO OEV / 
/ MO / 
/ VIA FORMAT / 
/ 109 / 



I 



I NOTE 13 
«««*«»«**»* 

* BEGIN 00 LOOP ♦ 

* 1980 IW = I , « 

* 1000, 20 ♦ 
*********** 

I 

>1 

I 14 

/ WRITE TO DEV / 
/ MO / 
/ VIA FORMAT / 
/ 108 / 
/ FROM THE LIST / 



,- - 




I 

1 NOTE 


15 


********* 


* * 


» LIST = IW, 




* PATCHF(IW), 




• PATCHP(IW), 




« RLOC(IW) 




********* 

I 


* * 


I 
1980 * 16 




* * 




* * 




NO * * 
* grgn OF DO 


* 



* LOOP? * 

« « 

* ♦ 

* 

I YES 



/ 

/ WRITE TO 
/ MO 
/ VIA FORMAT 
/ 10 


/ 
DEV / 
/ 
/ 
/ 


I 
I 
1 18 



/ / 

/ WRITE TO OEV / 
/ MO / 
/ VIA FORMAT / 
/ 11 / 



I 19 

/ / 

/ WRITE TO OEV / 
/ MO / 
/ VIA FORMAT / 
/ 12 / 

I 

I 20 

/ WRITE TO OEV / 
/ MO / 
/ VIA FORMAT / 
/ 13 / 
/ FROM THE LIST / 





I 
I 

1 NOTE 21 


* 


********** 


* 


LIST = * 


« 


IROA0(J,KP),J = * 


* 


1,2) • 


* 


********** 

1 




I 

1 22 



/ WRITE TO DEV / 
/ MO / 
I VIA FORMAT / 
/ 14 / 
/ FROM THE LIST / 





1 
1 

1 NOTE 


23 




*««•**** 


* * 




LIST = 






(PAVEdTYPE.J) 






J = 1,3) 






******** 


* * 



I 



24 



/ WRITE TO DEV / 
/ MO / 
/ VIA FORMAT / 
/ 15 / 
/ FROM THE LIST / 



I NOTE 


25 


• *•*****« 


* * 


* LIST = PROJLN 


* 


********* 


* « 




26 



/ WRITE TO OEV / 
/ MO / 

/ VIA FORMAT / 

/ .16 / 

/ FROM THE LIST / 



I 
I 

I NOTE 


27 


********* 


* * 


» LIST = WIDTH 


* 


********* 


* « 


I 
I 


28 



/ WRITE TO DEV / 
/ MO / 
/ VIA FORMAT / 
/ 17 / 
/ FROM THE LIST / 











I NOTE 


29 


^ 


* 


* 


* « 


* * * « 


« « 


« 




LIST = 


= NYEARS 


* 


* 


* 


» 


« * 


« « * « 


« * 



>* 

I 30 

/ WRITE TO DEV / 
/ MO / 
/ VIA FORMAT / 
/ 18 / 
/ FROM THE LIST / 

I 

I NOTE 31 

• *****•***• 
» LIST = OLIFE » 
*********** 

I 
I 
I 32 

/ WRITE TO DEV / 
/ HO / 
/ VIA FORMAT / 
/ 19 I 
/ FROM THE LIST / 

I 

I 

I N3TE 33 

*********** 

• LIST = RLIFE * 

*********** 

I 
I 
I 34 

/ WRITE TO DEV / 
/ MO / 
/ VIA FORMAT / 
/ 20 / 
/ FROM THE LIST / 

I 

I 

I NOTE 35 
*********** 
» LIST = PSIRS * 
*********** 

I 

I 

I 36 

/ / 

/ WRITE TO OEV / 
/ HO / 
/ VIA FORMAT / 
/ 21 / 

I 

I 

I 37 

* * 

I ITEST = I 
I (VOLUMEIl) ♦ I 
I VOLUME(2))»1000 I 

* * 

I 
I 

I 38 

/ WRITE TO OEV / 
/ MO / 
/ VIA FORMAT / 
/ 22 / 
/ FROM THE LIST / 

I 

I NOTE 39 
*********** 
« LIST = ITEST • 

*********** 

I 

I 

I 40 

* * 

I TEMPI = I 

I TRUCKS(l) ♦ I 

I TRUCKSI2I I 

* * 

I 
I 

I 

I / 

/40.01 



272 



CHART TITLf - SUBROUTINt 



39.40 >» 



1 



01 



/ WRITE TU DEV / 
/ MO / 

/ VIA FJKMAT / 

/ 2J / 

/ FROM THE LIST / 











I 

I 

I NOTE 


02 


* 


4 


# 


* V 


* * * » 


# 4 


« 




LIST 


= TEMPI 


* 


# 


* 




* * 


* * * * 

I 
I 


* * 
03 



TEMP2 = I 

SPLIT(l) t I 

SPLIT 12) I 



0<. 



/ WRITt TO DEV / 
/ MU / 
/ VIA FORMAT / 
/ 2* / 
/ FROM THE LIST / 



1 
I 

I NOTE 05 

* LIST = TEMP2 * 

I 

I 

I Oo 

« 1 

I ITtST = ITtST + I 

I VnLUME<2) I 

I ♦d'lYEARS - I 

1 1)*100J I 





1 
I 
I 


07 


/ WRITE TO DEV 
/ ,M0 
/ VIA FORMAT 
/ 25 / 
/ FKQM THE LIST / 


/ 

/ 

/ 


* 


I 

I NOTE 
LIST = ITEST 

I 
1 


03 

# * 

* ♦ 
09 



I TEMPI = TEMPI *■ I 
I TRUCKS(2) I 
I «(NYEARS - I) I 



1 



10 



/ HRl TF TO DtV / 
/ MO / 
/ VIA FORMAT / 
/ 26 / 
/ FROM THE LIST / 

I 
I 

I NOTE 11 

* LIST = TEMPI « 

I 

I 



>» 

I 12 

« 4c 

I TEMP2 = TEMP2 + I 
1 SPLIT(2) I 
I ilNYEARS - 1) I 
Xc « 

I 

I 

I 13 

/ WRITE TO UEV / 
/ MO / 

/ VIA FORMAT / 

/ 27 / 

/ FROM THE LIST / 

I 
I 

I NOTE 14 
*********** 

* LIST = TEMP2 * 
*********** 

I 

I 15 
* * 

1 I = LANES + 1 I 

I I 

I TEMPI = I 

I CAP<I)«1000 I 

# # 

I 
I 

I 16 

/ WRITE TO OEV / 
/■ Mfl / 

/ VIA FORMAT / 

/ 26 / 

I FROM THE LIST / 

I 
I 

I NOTE 17 
*********** 

* LI ST = TEMPI * 
*********** 

I 
I 
I 18 

* * 

I TEMPI = I 

I CAP(1)*1000 I 

I 
I 
I 19 

/ WRITE TO UEV / 
/ MO / 

/ VIA FORMAT / 

/ 29 / 

/ FROM THE LIST / 

I 

I NOTE 20 
*********** 

* LIST = TEMPI • 
*********** 

I 

I 

I 21 

* * 

I COMPUTEU GO TO I 

1 FUR KP I 

* « 

I 1900 40.29 I 

* « 

1 

I 

IF OUTSIDE THE RANGE 
I 
1 
I 22 

* * 

I TEMPI = I 

I CAP{2I»1000 1 

* « 

I 
I 



I 



23 



/ WRITE TO OEV / 
/ MO / 
/ VIA FORMAT / 
/ 30 / 
/ FROM THE LIST / 

1 
I 

I NOTE 24 
*********** 
« LIST = TEMPI * 

*********** 



I COMPUTED GO TO I 

I FOR KP I 



I 1900 
I 1900 



40.29 I 
40.29 I 



IF OUTSIDE THE RANGE 



TEMPI = 
CAP(3I«1000 



27 



/ WRITE TO DEV / 
/ MO / 
/ VIA FORMAT / 
/ 31 / 
/ FROM THE LI ST / 

1 

I 

I NOTE 28 
*********** 

* LIST = TEMPI « 
*********** 

40.21* — >l 

1900 I NOTE 29 
*********** 

* CONTINUE ♦ 
*********** 

I 

I 

I 30 

* * 

I TEMPI = I 
I CAP(LANES) *1000 I 



31 



/ WRITE TO OEV / 
/ MO / 
/ VIA FORMAT / 
/ 82 / 
/ FROM THE LIST / 

I 

I NOTE 32 
*********** 
• LIST = TEMPI • 
*********** 

I 

I 

I 33 
* * 

I TEMPI = I 
I 0ET0UR(5)*1000 1 



I 



34 



/ WRITE TO OEV / 
/ MO / 
/ VIA FORMAT / 
/ 83 / 
/ FROM THE LIST / 



I 



I NOTE 35 
*********** 
* LIST = TEMPI * 
*********** 

I 

I 

I 36 

/ WRITE TO DEV / 
/ MO / 
/ VIA FORMAT / 
/ 95 / 
/ FROM THE LIST / 





I 

1 




I NDTE 37 


* 


********** 


* 


LIST = OETOURIl) * 


* 


********** 
I 




I 

I 38 



/ WRITE TO OEV / 
/ MO / 
/ VIA FORMAT / 
/ 96 / 
/ FROM THE LIST / 



I 

I NOTE 39 
*********** 
• LIST = DET0UR(2I * 

*********** 



40 



/ WRITE TO DEV / 
/ MO / 
/ VIA FORMAT / 
/ 97 / 
/ FROM THE LIST / 

I 
I 

I NOTE 41 
*********** 
* LIST = DET0UR(3I • 

*********** 



42 



/ WRITE TO DEV / 
/ MO / 
/ VIA FORMAT / 
/ 98 / 
/ FROM THE LIST / 









I 

I 


NOTE 


43 


* 


* 


* * 


• * 


* * * 


* * 


* 


LIST 


= DET0UR(41 


• 


* 


* 


* * 


* * 

1 
1 


* * * 


* * 
44 



/ WRITE TO OEV / 
/ MO / 
/ VIA FORMAT / 
/ 100 / 
/ FROM THE LIST / 

I 
I 
I 

I / 



273 



CHART TITLE - SUBROUTINE RPRINT 



'tO.'t't >* 

I NOTE 01 

* LIST = LIET0UR(6) * 

I 

I 02 



->« 





/ 


WRITE TO DEV 


/ 




/ 


MO 


/ 




/ V 


[A FORMAT 


/ 




1 


101 / 




/ 


FROM 


THE LIST / 








I NOTE 


03 


^ 


* * 


*«*#♦* 


* * 


<■ 


LIST 


= 0ET0UR(7) 


* 


* 


* « 


****** 
I 
I 
1 


* * 
0* 



/ WRITE TO DEV / 
/ MO / 
/ VIA FORMAT / 
/ 106 / 
/ FKOM THE LIST / 





I 
I 

1 MOTE 05 


* 


********** 


# 


LIST - ■> 


* 


SLIMITILANES t 1) * 


* 


********** 




I 

1 06 



/ WRITE TO OEV / 
/ MO / 
/ VIA FORMAT / 
/ 102 / 
/ FROM THE LI ST / 



I 

I NOTE 07 
*********** 
* LIST = SLIMITI II » 
*********** 

I 

I 

I 08 

/ WRITE TO DEV / 
/ MO / 

/ VIA FORMAT / 

/ 103 / 

/ FROM THE LIST / 

I 
1 

1 NOTE 09 
*********** 
» LIST = SLIMIT(2I * 
*********** 

I 

I 

I 10 

/ WRITE TO OEV / 
/ MO / 
/ VIA FORMAT / 
/ 104 / 
/ FROM THE LIST / 



I 

I NOTE 11 
*********** 
* LIST = SLIMIT(3) * 
*********** 



1 



12 



/ WRITt TO OEV / 
/ MO / 
/ VIA FORMAT / 
/ 105 / 
/ FROM THE LIST / 

I 

I 

1 NOTE 13 
*********** 
» LIST = SL IMITI*) « 
*********** 

I 

I 

I 14 

/ WRITE TO DEV / 
/ MO / 
/ VIA FORMAT / 
/ 33 / 
/ FROM THE LIST / 





I 
1 

I NOTE 15 


* 


********** 


* 


LIST = CWT * 


* 


********** 

I 




I 

I 16 






I 


ITEST = 1 


I 


ARHn*1000000 1 








I 

I 17 




/ WRITE TO OEV / 




/ MO / 




/ VIA FORMAT / 


/ 34 / 


/ 


FROM THE LIST / 




I NOTE 18 


* 


********** 


* 


LIST = ITEST * 


* 


********** 




I 19 



/ WRITE TU DEV / 
/ MO / 
/ VIA FORMAT / 
/ 10 / 

I 
I 
I 20 

/ / 

/ WRITE TO DEV / 
/ MO / 
/ VIA FORMAT / 
/ 113 / 



I 



I 21 



I N = LANES t 1 I 



22 



I WRITE TU DEV / 
/ MO / 
/ VIA FORMAT / 
/ 88 / 
/ FROM THE LIST / 



I 



I NOTE 23 
*********** 

* LIST = (J, J = « 
■>■ l.NI * 
*********** 

I 
I 
I 24 

/ / 

/ WRITE TO OEV / 
/ MO / 

/ VIA FORMAT / 

/ 1)7 / 

I 

I 

I NOTE 25 
*********** 
» BEGIN 00 LOOP * 
» 1950 I = 1, 11 * 
*********** 

>I 

I 26 

* * 

I VC = ( I - 11*. 1 I 

* * 

I 
1 
1950 I 27 

/ WRITE TO OEV / 
/ MO / 
/ VIA FORMAT / 
/ 110 / 
/ FROM THE LIST / 

1 
I 

I NOTE 28 
*********** 

♦ LIST = VC. * 

• (SP( J,I ) , J = l.NI * 
*********** 

I 
I 
I 
* 29 



END OF 00 
LOOP? 



30 

t I 

I WRITE TO DEV / 
/ MO / 
/ VIA FORMAT / 
/ 10 / 

I 
I 
I 31 

/ / 

/ WRITE TO DEV / 
/ MO / 
/ VIA FORMAT / 
/ 35 / 



/ WRITE TO DEV / 
/ MO / 
/ VIA FORMAT / 
I 36 / 

I 
I 



33 

/ 



/ WRITE TO DEV / 
/ MO / 
/ VIA FORMAT / 
/ 37 / 

I 

I 

I 34 

/ / 

/ WRITE TO OEV / 
/ MO / 
/ VIA FORMAT / 
/ 38 / 

I 
I 
I 35 



/ WRITE TO DEV / 
/ MO / 
/ VIA FORMAT / 
/ 39 / 

I 

I N3TE 36 
*********** 

* BEGIN DO LOOP * 

* 1910 IH = 1, 24 * 

*********** 

I 

>I 

I 37 

/ WRITE TO OEV / 
/ MO / 
/ VIA FORMAT / 
/ 40 / 
/ FROM THE LIST / 

I 

I 

I N3TE 38 
*********** 

* LIST = IH, * 

* (PCTADTI IH, J, 1, 1) * 

* ,J = 1,71, * 

* IPCTADTI IH, J, 2, 1) * 

* , J = 1. 71 » 
***«****««* 

I 
I 
I 
1910 » 39 



END OF 03 
LOOP? 



/ WRITE TO DEV / 
/ MO / 
/ VIA FORMAT / 
/ 41 / 





I 

1 N3TE 41 


* 


«»♦*»«*»»« 


* 


BEGIN DO LOOP * 


* 


1911 IH = I. 24 * 


* 


********** 




I 




I 




I / 



271 



CHART TITLb - SUBKUUTINE RPRINT 



'Vl.'.t* — >» 



I 



01 



/ "Kl TE TO OtV / 
/ M3 / 

/ VIA FiJRMAT / 

/ VO / 

/ FROM THE LIST / 

I 
I 
1 NOTE 02 

• LIST = IH, • 

• (PCTAOT( IH, J, 1, 2) * 

• .J = I ,7) , » 
» I PCTADTI IH,J,2,2) * 
» ,J = 1,7) * 

I 

I 
I 

19U » aj 
* • 



NO 



END OF DO ♦ 

» LOOP? » 



lYES 

I 

I 

I 

I 

I 

I 



/ 

/ kpite to 

/ MU 
/ VIA FORMAT 
/ 10 


/ 

OEV / 
/ 
/ 
/ 


I 
I 
1 05 



/ WRITE TO JEV / 
/ MO / 

/ VIA FORMAT / 

/ 11 / 



I 



/ WRITE TU DEV / 
/ MO / 
/ VIA FORMAT / 
/ *2 / 

I 
I 

I 07 

/ / 

/ WRITE TO OEV / 
/ MO / 
/ VIA FORMAT / 





1 
1 
I 




03 


1 

1 


/ WRITE TO 
/ HO 
/ VIA FORMAT 

FROM THE LIST 


JEV 

/ 
/ 

TE 

* 


/ 

/ 

/ 


* 

» 
« 


I 

1 NO 

« « * « 9 « * 

LIST = (J, J 
1,7) 
******* 

I 
I 


09 

» * 
* 
* 

* * 



I 10 

/ / 

/ WRITE TO UEV / 
/ MO / 
/ VIA FORMAT / 
/ 45 / 

1 
I 



I 



11 



/ WRITE TO OEV / 
/ MO / 
/ VIA FORMAT ■ / 
/ 46 / 
/ FROM THE LIST / 

I 
I 

I NOTE 12 
*********** 

* LIST = t 

* (0VER(2, J) , J = * 

* 1,7) » 
*********** 

I 
1 

I 13 

/ WRITE TO OEV / 
/ MO / 

/ VIA FORMAT / 

/ 47 / 

/ FROM THE LIST / 





I NOTE 


14 




******** 


* * 




LIST = 






(OVERO, J) , J = 






1,7) 






******** 


* * 
15 



/ WRITE TO DEV / 
/ MO / 
/ VIA FORMAT / 
/ 48 / 
/ FROM THE LIST / 

I 

I 

I NOTE 16 
*********** 

• LI ST = * 

• (SWURKIJ),J = « 

• 1,7) * 
*********** 

I 
I 
I 17 

/ WRITE TU DEV / 
/ MO / 
/ VIA FORMAT / 
/ 49 / 
/ FROM THE LIST / 





I 

I NOTE 


IB 


* 


******* 


* 


« * 


* 


LIST = 




* 


* 


(0VER(4, J) , J 


= 


* 


* 


1,7) 




* 


* 


******* 

I 
I 




* * 
19 




/ WRITE TO 


JEV 


1 




/ MO 




1 




/ VIA FORMAT 




1 


1 50 


/ 




/ 


FROM THE LIST 


/ 






I 







>• 

1 K'lTE 20 
*********** 

* LIST = » 

* (0VER(6, J) ,J = » 

* 1,71 » 
*********** 

I 
I 
I 21 

/ WRITE TO DEV / 
/ MO / 
/ VIA FORMAT / 
/ 51 / 
/ FROM THE LIST / 





i 

I 

I NOTE 


11 




******** 


* * 




LIST = 






(0VER(5, J) ,J = 






1,7) 






******** 

I 

I 


* * 
23 



/ WRITE TO OEV / 
/ MO / 
/ VIA FORMAT / 
/ 52 / 
/ FROM THE LIST / 

I 

I 

I NOTE 2 
********** 

* LIST = 

♦ (0VER(7,J1 ,J = 

• 1,7) 
********** 

I 
I 
I 25 

/ WRITE TO OEV / 
/ MO / 
/ VIA FORMAT / 
/ 53 / 
/ FROM THE LIST / 



1 




I NOTE 


26 


*»*»*»*** 


« * 


* LIST = 




* 10VER(8,J),J = 




* 1,7) 




********* 

I 


* * 


I 
I 


27 



/ WRITE TO DEV / 
/ MO / 
/ VIA FORMAT / 
/ 54 / 
/ FROM THE LIST / 





I 

I NOTE 


28 




******** 


* * 




LIST = 


* 




(0VER(9,J),J = 


* 




1.7) 


* 




******** 

I 
I 
I 


* * 
29 



/ WRITE TO OEV / 
/ MO / 
/ VIA FORMAT / 
/ 55 / 
/ FROM THE LIST / 

I 





1 NOTE 30 




«****•***« 




LIST = * 




(0VER(11.J),J >= * 




1.71 * 




I 




I 

I 31 



/ WRITE TO DEV / 
/ MO / 
/ VIA FORMAT / 
/ 56 / 

/ FROM THE LIST / 



I N3TE 


32 




* * 


LIST = 


* 


(OVER(l.J).J = 


* 


1.7) 


* 


******* 


« * 



33 



/ WRITE TO DEV / 
/ MO / 
/ VIA FORMAT / 
/ 57 / 
/ FROM THE LIST / 





I 

I NOTE 34 




********** 




LIST = • 




(OVERUO.Jl.J = » 




1.71 * 








I 




I 35 



/ WRITE TO DEV / 
/ MO / 
/ VIA FORMAT / 
/ 89 / 
/ FROM THE LIST / 



I 

I NDTE 36 
*********** 
» LIST = » 

• I0VER(12. lAl.IA - • 

* 1.7) * 
*********** 

I 
I 
I 37 

/ WRITE TO OEV / 
/ MO / 
/ VIA FORMAT / 
/ 90 / 
/ FROM THE LIST / 





I 
I 

I NOTE 38 
********** 




LIST = * 

ISIMIIA.ll.IA = * 

1,7) * 

**••****** 

I 




I 

I 39 



/ WRITE TO DEV / 
/ MO / 
/ VIA FORMAT / 
/ 91 / 
/ FROM THE LIST / 

I 

I 
I 
I / 



275 



CHART TITLE - SUBROUTINt RPRINT 



42.39 >» 

I NOTE 01 

* LIST = * 

* ISIMd A,2) ,IA = » 
» 1.7) * 

I 

I 

I 02 

/ WRITE TO UEV / 
/ MO / 
/ VIA FORMAT / 
/ 92 / 
/ FROM THE LIST / 





I 
I 

1 NOTE 03 


* 


***«*♦**♦* 


« 


LIST = * 


* 


(S1M( 1 A,3I ilA = « 


>(< 


1,7) * 


* 


I 




I 

I 04 



/ WRITE TO UEV / 
/ MO / 

/ VIA FOkflAT / 

/ 93 / 

/ FROM THE LIST / 



I 



1 NOTE 05 

» LIST = * 

« (SIM( 1A,4) ,1 A = » 
* 1.7) » 

I 
I 

I 06 

• / WRITE TO OEV / 

/ MO / 

/ VIA FORMAT / 

/ 94 / 

/ FROM THE LIST / 





I 

I 

I NOTE 07 


* 


********** 


« 


LIST = » 


* 


(SIM(IA,5) ,1A = • 


* 


1.7) * 


* 


********** 




I 

I OB 




/ / 



/ WRITE TO DEV / 
/• MO / 

/ VIA FORMAT / 

/ 58 / 



1 



09 



/ WRITE TO UEV / 
/ MO / 
/ VIA FORMAT / 
/ 59 / 
/ FROM THE LIST / 

I 
I 

I NOTE 10 
*********** 

* LIST = TCMQVE * 

*********** 

I 



>* 

I 11 

/ WRITE TO UtV / 
/MO / 

/ VIA FORMAT / 

/ 60 / 

/ FROM THE LIST / 

1 

I 

I NOTE 12 
*********** 
« LIST = WALK * 
*********** 



/ 

/ WRITE TO 
/ MO 
/ VIA FORMAT 
/ 61 


1 
OEV / 
/ 
/ 
1 


1 
I 
I 


14 



/ WRITE TO DEV / 
/ MO / 
/ VIA FORMAT / 
/ 62 / 





I 

I 




15 




/ 




/ 




/ WRITE TO 


OEV 


/ 




/ MO 




/ 


/ 


VIA FORMAT 


/ 




/ 


63 


/ 





/ WRITE TO JEV / 
/ MO / 
/ VIA FORMAT / 
/ 64 / 

I 
I 

I NOTE 17 
*********** 

* BEGIN DO LOOP * 

* 1920 lA = 1, 7 * 
*********** 

I 

I< 

1 IB 

/ WRITE TO OEV / 
/ MO / 
/ VIA FORMAT / 
/ 65 / 
/ FROM THE LIST / 







I 
I 
I NOTE 19 




* * * * 


****** 




LIST 


= lA, * 




(PS( lA 


1 ..J ) , J = * 




1 


3). * 




IPSdA 


2. J), J = * 




1 


3). * 




(PSl lA 


3, J). J = * 




1 


3) * 




* * * * 


****** 

I 
I 



1920 * 20 

* * 

* * 
NO * * 

* END OF DO * 

* LOOP? * 

* * 

* * 
* 
lYES 



21 

/ / 

/ WRITE TO OEV / 
/ MO / 
/ VIA FORMAT / 
/ 10 / 

I 
I 

I 22 

/ / 

/ WRITE TO OEV / 
/ MO / 
/ VIA FORMAT / 
/ 66 / 



1 
I 

I 23 


/ 

/ WRITE TO 
/ MO 
/ VIA FORMAT 
/ 57 


/ 
OEV / 
/ 
/ 
/ 


1 

I 

I 24 


/ 


/ 



/ WRITE TO OEV / 
/ MO / 
/ VIA FORMAT / 
/ 68 / 



25 



/ WRITE TO DEV / 
/ MO / 
/ VIA FORMAT / 
/ 69 / 
/ FROM THE LIST / 







I 
1 
1 NOTE 26 


* 


• » * « 


****** 


* 


LIST = 


FUEL(l), • 


* 


OILIl), 


TIRES(l) * 


* 


* * # * 


****** 

I 

I 

I 27 



/ WRITE TO DEV / 
/ MO / 
/ VIA FORMAT / 
/ 70 / 
/ FROM THE LIST / 



I 



I NOTE 28 
*********** 
* LIST = FUEL(2) . * 
« 0IL12). TIRESI2) * 

*********** 
I 
I 



>• 

I 29 

/ / 

/ WRITE TO DEV / 
/ MO / 
/ VIA FORMAT / 
/ 71 / 

I 
I 
I 30 

/ / 

/ WRITE TO OEV / 
/ MO / 
/ VIA FORMAT / 
/ 72 / 

I 
I 
I 31 

/ / 

/ WRITE TO OEV / 
/ MO / 
/ VIA FORMAT / 
/ 73 / 

I 
I 
I 32 

/ / 

/ WRITE TO DEV / 
/ MO / 
/ VIA FORMAT / 
/ 74 / 

I 
I 

I NOTE 33 
*********** 
» BEGIN DO LOOP * 
* 1930 I = I, 32 * 

*********** 



I IS = I + 32 



35 



/ WRITE TO OEV / 
/ MO / 
/ VIA FORMAT / 
/ 75 / 
/ FROM THE LIST / 



I 
I 

I N3TE 


36 


********* 


* * 


* LIST = I. 




* (OCOSTSII.JI.J = 




* 1.2). IS, 




* lOCOSTSdS.JI.J 


= * 


* 1.2) 




********* 

I 


* * 


I 
1930 * 37 




* * 




* * 




NO » * 
* END OF 00 


* 



* LOOP? * 

* * 

* * 

« 

lYES 



276 



CHART TITLt - SUSRrjUT|-JE RPRINT 



I 


01 


/ 

/ fIRITE TO 
/ MO 
/ VIA FORMAT 
/ 10 


/ 
CJEV / 
/ 
/ 

/ 


I 
I 
I 02 



/ URITE Tn DEV / 
/ .10 / 

/ VIA F3KMAT / 



I 03 

/ WRl TE TO UtV / 
/ MO / 

/ VIA FORMAT / 

/ 84 / 

/ FROM THE LIST/ 





I 
I 
I 


NOTE O't 


» * » » « 


if 


* « e # * 


• LIST 


= 


INC • 


* * « * w 


* 
I 
I 
1 


* * « « « 
05 



/ WRITE TO UEV / 
/ MO / 

/ VIA FORMAT / 

/ B5 / 

/ FROM THE LIST / 

I 

I NOTE 06 

* LIST = OCWORK • 

I 
t 

I 07 

/ WRITE TO OtV / 
/ MO / 

/ VIA FORMAT / 

/ ib / 

I FROM THE LIST / 



I 

I 

1 NOTE 


08 


*«*#**« 


♦ « 


t « 


* LIST = DCSCHL 


» 


* * « ^t « * « 

1 
I 


« * 


09 


/ 




/ 


/ WRITE TO 


OEV 


/ 


/ MO 




/ 


/ VIA FORMAT / 


/ 76 


/ 




I 




10 


/ 




/ 



/ WRITE TO UEV / 
/ MO / 

/ VIA FORMAT / 

' 77 / 

I 
I 



I U 

/ / 

/ WRITE TO DEV / 
/ MO / 
/ VIA FORMAT / 
/ 78 / 



I 
I 

I 12 


/ 

/ WRITE TO 
/ MO 
/ VIA FORMAT 
/ 79 


/ 

OEV / 
/ 
/ 
/ 


I 
I 
I 13 


/ 


/ 



/ WRITE TO OEV / 
/ MO / 
/ VIA FORMAT / 
/ 80 / 

I 
I 

1 NOTE 14 

« BEGIN DO LOOP » 
* 1940 I = 1, 20 * 

I 
>l 

I 15 



1 IT = I t 20 I 

# # 

1 

I 16 

/ WRITE TO OEV / 
/ MO / 
/ VIA FORMAT / 
/ 81 / 
/ FROM THE LIST / 



I 



I NOTE 17 
«*<[«*«««**« 

* LIST =1, * 

* I VTRATE(J,I) ,J = • 
» 1,5), IT, « 

* ( VTRATEI J,IT) ,J = 4 
« 1,5) * 

I 
I 
I 

1940 • 18 



END OF DO 
LOOP? 



I YES 



277 



CHAKT TITLfc - SUBROUTINE YEAR 



YEAR 



I 

02.07 >I 

I NOTE 01 

* BEGIN DO LOOP * 

* 2001 I = I, b • 

I 
>1 

I 02 

« « 

I TOTALAI 11=0 ( 
* « 

I 

I 
I 

2001 * 03 



END OF DO 
LOOP? 



« 1 

I PSIASN = "t.S I 

I RAGE = I 

I AAXLES = I 

* * 

I 
I 

«**THIS ANALYSIS IS 
PERFORMED FOR NYEARS 



* BEGIN 00 LOOP * 

* 2000 lY = 1, » 

* NYEARS * 

I 

60.08 >I 

I 
** INCREMENT VOLUME 
FOR EACH YEAR 

I 

I 

I 06 



VOLUME! 1) = 

VOLUME! 1) i 

VOLUME! 2) 



♦ * 


INCREMENT % 




COMMERCIAL FOR EACH 




YEAR 


I 

I 
I 


07 


I 


TRUCKS! 11 = 


, 


I 


TRUCKSIll *■ 


I 




TRUCKS! 2) 


I 




I 

I 
I 





** INCREMENT AM AND 
PM DIRECT lONAL SPLIT 
FOR EACH YEAR 

I 

I 08 



SPLITIl) = 

SPLIT!!) 1 

SPLITI2) 



>* 

I NOTE 09 

* BEGIN DO LOOP * 

* 2010 ID = I, 2 * 

I 

50.04 >1 

I NOTE 10 

* BEGIN 00 LOOP * 
» 2011IT = 1,7 * 





50.03— >I 








1 


NOTE 


11 


* 


***** 


* * t 


* * 


* 


BEGIN 00 LOOP 


* 


» 


2012 IH = 


1, 2', 


* 


* 


***** 


» * * 


* * 








** INCREMENT 







ISTRIBUTION 


OF 




TRAFFIC FOR 

I 


EACH YEAR 




I 




12 










I 


PCTAOT! IH, 


IT, ID, 




I 


1) = 






I 


PCTAOTIIH, 


IT, ID, 




I 


1) + 






I 


PCTAOT! IH, 


IT, ID, 




I 


2) 
















I 
I 
I 







END OF 00 
LOOP? 



N = LANES ♦ 1 



I 

I NOTE 15 
*********** 

• BEGIN DO LOOP » 

* 2020 IC = 1, N * 
*********** 



50 


.02— >I 








I 


NOTE 


16 


* * 


* * * « 


* * * 


* « 


« 


BEGIN DO LOOP 


* 


* 


2021 I = 


1, 8 


* 


* * 


* * « * 


# * * 


* * 


50 


.01- — >I 






** 


INITIALIZE COSTS 


TO 


ZERO FOR 

I 


EACH YEAR 




I 

I 




17 


I COSTSIIT,! 


Cl.IO) I 


I 


= C 




I 












1 
I 


/ 





278 



CHAkT rlTLE 



SUOKQUTINf YEAR 



EMU UF 00 
LOOP? 



lYES . 4 



» NO 

END UF 00 *-» 

LOUP? * 1 

* * I 

« * I 



lYES 



49 



END OF 00 
LOOP? 



. 49 
. 1 



* NO 

END UF DO *-t 

LUUP? <■ I 

» * I 

» » I 



***INITIALCZE THE 
TRANSFER ACCUMULATED 
18 KIP VARIABLE TO 
ZERO 



lYES 



49 



suaRouTrjt aworkl 

***NOTE: OPTION TO 
TRANSFER 

*** 1. PSI 
VALUE, 'PSI' OR 

*** 2. 

ACCUMULATED 18 KIP 
AXLtS, 'AXLE • 
I 
I 
1 
*«*DETERMINE THE PSI 
AND A^IALYSIS AGE FOR 
YEAR 

I 
1 
I 
***INITl ALIZE THE 
PRESENT 

SERVICEAdlLITY INDEX 
TO ZERO EACH YEAR 



1 



>« 

I 

***TEST TLI DETERMINE 
IF A PSI HAS BEEN 
TRANSFEREO FROM A 
CALLING PROG 
I 


* 
» PSI 


I 

« 06 
* * 

« TRUE 
.EQ. * 



2310 1 




07 


I AXLE 


= 


I 


I 

I 
*4«TEST TO DETERMINE 
IF "AXLE" HAS BEEN 
TRANSFEREO FROM A 
CALLING PRO 

1 


I 
* 


08 





« AXLE .EQ. 



««»ASSIGN TRANSFEREO 
VALUE FOR AXLE TO 
VARIABLE FOR 
ACCUMULATED 18 KI 

I 

I 

I 09 



I 



AAXLES = AXLE 



I 



♦♦♦DETERMINE THE 
DAILY COMMERCIAL 
TRAFFIC VOLUME FOR 
ANALYSIS YEAR 



->♦ 



I CVOL = I 

I TRUCKS! 1) I 

I *VOLUME( U/lOO I 



I 
I 

♦♦♦DETERMINE THE 
ANNUAL COMMERCIAL 
TRAFFIC 18 KIP AXLE 
LOADINGS 

I 

I 

I 11 
t « 

I AAXLES = AAXLES ♦ I 
I CVOL^.365^. 735/2 I 

t • 

I 
I 

I 

♦♦♦ANALYSIS AGE IS 

E9UAL TO ANAYSI S YEAR 

MINUS PAVEMENT 

RESURFACED YE 

I 

>I 

2323 I 12 
# « 

I AGE = JY - RAGE I 

* « 

I 
I 
I 

♦♦♦TEST THE 
PREDICTED ACCUMULATED 
AXLES AGAINIST ACTUAL 
ACCUMULATED A 

I 

I 

I 

♦ 13 



AGE^ARHO .GT. 
♦ AAXLES ♦ 



IFALSE 
I 
I 
I 
I 
I 
I 
♦♦♦BASE ANALYSIS AGE 
ON ACTUAL AXLES 
I 

I 14 

« * 

I AGE = AAXLES/ARHO I 

t * 

I 

I 
♦♦♦COMPUTE 
PSI,PSIASN=INITIAL 
PSI, DLIFE-DESIGN 
LIFE,AGE=ANALYSIS AGE 



I<- 



I PSI = PSIASN - I 

I (( (PSIASN - I 

I 1.5I/DLIFE)^AGEI I 



279 



CHART TITLE - SUBROUTINE YEAR 



50.06» — >* 

23*9 I NOTE 01 
♦ «****«*♦## 
» CONTINUE * 
*«♦»*»**•♦• 

I 

I 

I 
«**ANALYSIS AGE IS 
ASSU>leO RELATED TO 
LINEAR LOSS IN PSl 
OVER 20 YEAR 

I 

I 

1 02 



I AGE = 

I 20*(PSIASN - 

I PSl )/(PSIASN - 

1 L.S) 



•••TEST 
DETERMINE 
SHOULD BE 

***l F 
DUE FOR R 
SET MAINT 
EQUAL TO 



I 

I 

PSl TO 
IF PAVEMENT 
RESURFACED 
VEMENT IS 
ESURFACING 
ENANCE LEVEL 

I 
1 
I 



I .LE. 
PSIRS 



ITRUE 

I 

1 

I 

I 

I 

I 0* 

* « 

I 0VER(6,7I = I I 

« * 

! 
>I 

I 

♦♦^DEVELOPMENT OF 
ANNUAL WORKLOAD FOR 
ACTIVITIES 

I 

I 

I 
♦♦♦DETERMINE THE 
TYPE OF 

ROADriAY, CONCRETE, 
BITUMINOUS OR 
COMPOSITE 

I 

I 

I 05 



I 


COMPUTED 


GO 


10 


I 


I 


FOR 


ITYPE 




I 


i 


2101 




51 


.06 


I 


I 


2102 




52 


. 11 


I 


I 

* 


2103 




53 


.08 


' 



IF OUTSIDE 



* « « ♦ 



THE RANGE 



♦ ♦CONCRETE 


WORKLOAD 


ANALYSIS 




51.05— >1 




2101 


NOTE 06 


♦ ♦♦♦♦< 


!♦♦♦♦♦ 


* CUNT 


NUE ♦ 



♦ * ♦ ♦ ♦ 



->♦ 



♦ ♦♦GET EACH ACTIVITY 
I 
I 

I NOTE 07 

♦ «♦«*♦♦«♦♦♦ 

♦ BEGIN DO LOOP ♦ 

♦ 2104 lA = 1, 7 ♦ 

♦ ««♦♦♦♦♦**♦ 



52.10— >I 
I 

♦♦♦INITIALIZE WORK A 
TEMPORARY VARIABLE TO 
HOLD ANNUAL WORKLOAD 
BY AC 

I 

I 

I 08 



I 



WORK = 



T 



I 
I 
I 

♦♦♦TEST To SEE IF 
MAINTENANCE LEVEL IS 
iERO MEANING NO 
WORKLOAD 



♦ 0VER(6 


, lA) ♦-+ 


. ♦ .EQ. 


♦ I 


» 


♦ 1 


♦ 


♦ I 




... 


IFALSE • 52 




. 10 




... 




210 


♦♦♦BRANCH 


10 THE 


APPROPRIATE 


ACTIVITY 


MODEL 






10 


I COMPUTED GO TO 1 


I FOR 


lA I 






I 2120 


51.11 I 


I 2125 


51.12 I 


I 2130 


52.01 1 


1 2135 


52.04 1 


I 21*0 


52.05 I 


1 2108 


52.07 I 


I 2195 


54.11 I 



IF OUTSIDE THE RANGE 
I 
I 
I 
♦♦♦FULL DEPTH 
CONCRETE PATCHING 
MODEL 

I 

51.10 >I 

2120 I 1 



WORK = 

0VERI3,IA) 

♦34^(l/( I + 

EXP1-1^( lAGE - 

101/1.2511)1 

I 



♦♦♦PARTIAL DEPTH 
CONCRETE PATCHING 

51.10 >♦ 

2125 I 12 

♦ « 

I WORK = HMORKIl I I 

* ■ * 

I 
I 

♦♦♦IT IS ASSUMED 
THAT PARTIAL DEPTH 
PATCHING CANNOT 
EXCEED ONE CUBIC 

I 

I 

I 



ITRUE 

I 
I 
I 
I 

I 14 
• « 

I WORK = 1 I 
» ♦ 

I 
>I 

I 
♦♦♦DEDUCT PARTIAL 
DEPTH PATCHING FROM 
ACCUMULATED FULL 
DEPTH PATCHING 

I 

I 

I IS 
« * 

I HWORKIll = I 
I HWORK(l) - WORK I 
« * 

I 
I 
I 

♦♦♦FACTOR WORKLOAD 
IF APPLICABLE 
I 



I WORK = 
I W0RK^0VER(3 


lA) 


I 
1 




I 
I 






♦♦♦TEST 

WORKLOAD 


FOR OVERRIDE 

RATE 

I 
I 
I 



♦ FALSE 



0VERI4ilA) 

♦ .N6. 



ITRUE 

I 

I 

I 

I 

I 

I 



I WORK = OVER I4,IAI 



"51.17»~>^ 
I 
♦♦♦CDMVERT PARTIAL 
PATCHING TO SQUARE 
FEET AND ACCUMULATE 
I 
I 
I 19 



HWORKI lA) 

HMORKIUI 

W0RK^9 

I 
I 
I 



CHART TITLE - SUBROUTINE YEAR 



e«*C]NCRETt BLOWUPS 



*«*ASSUMEO THAT 
THERt ARE NJ BLJWUHS 
PRIOR TO FIFTH YEAR 

bl.lO >* 

1 
2l3u « 01 



lY .LT. 5 



**?1T 


IS ASSUMEl) 


THAT THERE WILL Bfc NO 


SLUWUPS 


AFTER 2S 


YEARS 


I 




I 

* 02 




* * 


* 


:jc 


* 


* TRUE 


* lY 


.GT. 25 * > 



1F4LSE 

I 

I 

I 

I 

1 

I 
***SLOWUP MOUEL FOR 
SETKEtN 5 AND 25 
YEARS 

I 



2131 



03 



I WORK = .005*(IY - I 
I 'f)*GVER(3, la) I 



<.,j.TEMP3 I S THE 
PORTION OF THE TOTAL 
MUDJACK ING TO bF DONE 
EACH YEAR 

51.10 >« 

2140 I 05 

* 4 

I TEMP3 = I 

I .25*1. 5*IY) I 

I »*24EXP(-.5*IY1 I 



I 

I 
♦**ANNUAL MUDJACK ING 
LOCATIUNS 

I 

I 

! 06 
? # 

I WORK = 1 

I TEMP3*52.a/GVER I 
1 ( 2, 1AH>0VER(3,I A) I 

* , 

I 
I 
I 

*»*OV£R RIDE 
WORKLOAD RATE FOR ANY 
ACTIVITY 

I 
— 51 .10* — >I 



I 



210O 



07 



* aVER(4,IA) 
* .NE. 



I TRUE 

I 

I 

I 

I 

I 

I oa 

I WORK = OVER 14, lA) I 
» » 

I 

I< 

I 

*«*ACCUMULATED 
WORKLOAD FOR ANY 
ACTIVITY 

I 

I 

I 09 

I HWORK(IA) = 1 
I HWURK(IA) t WORK I 



-51.0V* — >I 
I 
2104 » 10 



END OF DO 
LOOP? 



***JOINT SEALING 
MODEL 



il. 10— 
2135 



I 



04 



1 >WORK = I 

I 5280/OVERI 2, lA) I 

I 'WIDTH^OVER (o, I A) I 

I *QVER(3,IA) I 



.54. 15. 
... 2199 



**»bITUMtNOUS 
WORKLOAD ANALYSIS 

51.05 >* 

2102 1 NOTE 11 

* CONTINUE * 
*********** 

I 
I 
I 
4«»GET EACH ACTIVITY 
I 
I 

I NOTE 12 
*********** 

<• BEGIN 00 LOOP « 

* 2105 lA = 1, 7 « 

I 
53.07 — >I 

«*»1N1T1AL12E WORK A 
TEMPORARY VARIABLE TO 
HOLD ANNUAL WORKLOAD 
BY AC 

I 

I 

I 13 



I WORK = 


[ . 






I 
I 

**»TEST TO SEE IF 


MAINTENANCE LEVEL 


IS 


ZERO MEANING NO 




HORKOAD 

1 




I 

« 14 




if * 




* * 




* 5 


TRUE 


* 0VER(6,IA) 


*-t 


« .EQ. « 


I 


4 « 


I 


* ♦ 


I 


* 




IFALSE . 


53 . 


I 


07 . 


I 


.... 


I 
I 


2105 


I 
♦♦•BITUMINOUS 




WORKLOAD AGE FACTOR 


MODEL 

I 




I 
I 
* 


15 



i FACTl - (1/(1 + I 
I EXP( (-AGE * I 

i 10)/1.16)l) I 



I 
I 
I 

**»8RANCH 


TO THE 


APPROPRI 


ATE 


ACTIVITY 


MODEL 


I 
I 

I 


16 








I COMPUTED GO TO I I 


1 FOR 


lA II 


1 2150 




52.17 I I 


1 2155 




53.01 I I 


I 2160 




53.02 I I 


I 2109 




53.03 I I 


I 2109 




53.03 I I 


I 2109 




53.03 I I 


I 2195 

# 


I 


54.11 1 I 
* I 




I 


+ 



>* 

I 

IF OUTSIDE THE RANGE 

I 

I 

I 
«**8ITUMIN0US 
PATCHING WORKLOAD 

52.16 >I 

2150 1 17 

* « 

I WORK = I 

I FACTl»1100»DVER I 
I (3,IA) I 



.53.03. 
... 2109 



281 



CHART TITLE - SUBRuUTl,\]fc YEAR 



»»»Cf<ACK.SEAL ING 
WORMOAD 

52. 16 ><■ 

2155 I 01 

* >;< 

I WORK = I 

I FACT1«1000*0VER I 
I (3,IA) I 



»*«BITUMINOUS 8ASE 
AiMD SURFACE REPAIR 
WORKLOAD 

52. 16 >« 

2160 I 02 

# * 

I WORK = 1 

I FACTl«aVER( 3, lA) I 
I *5 1 



1 

— 52.16* — >1 

I NOTE 03 

» CONTINUE * 

1 
I 
I 

♦'♦OVER RIDE 
WORKLOAD RATE FOR ANY 
ACT IVITY 

I 

1 

I 

♦ 0'. 



0VER{4, lA) 
♦ .NE. 



OVEKC.IA) I 



I 

>I 

I 

♦♦♦ACCUMULATED 
WORKLOAD FOR ANY 
ACTIVITY 

I 

I 

I 

« 

I HWORK( lA) = 

I HWORK( (A) * WORK 

I 

52.14 >I 

I 

2106 ♦ 07 

♦ ♦ 



* END OF OD 

♦ L00P7 



NO 
♦ - + 
I 
I 
I 

. 32 . 
. 13 . 



.5*. 15. 
... 2199 



♦♦♦COMPOSITE 
WORKLOAD ANALYSIS 



51.05 >♦ 




2103 I NOTE 


08 


«*♦♦#♦«♦ 


♦ ♦ 


CONTINUE 


♦ 


♦ ♦♦♦♦♦♦« 

I 


♦ * 


I 

1 


09 






FACTl = (1/(1 + I 


EXP( (-AGE * 


I 


10)/1. 16) ) ) 


1 






I 

I 

♦♦♦GET EACH ACTIVITY 

I 


1 

I NOTE 


10 



♦ ♦ ♦ ♦ ♦ 



♦ ♦ ♦ ♦ ♦ 



♦ BEGIN DO LOOP ♦ 

♦ 2106 I A = 1, 7 ♦ 

♦ ♦♦♦♦♦♦♦♦♦♦ 

I 
5*. 10 >l 

I 
♦•♦INrriALIZE WORK A 
TEMPORARY VARIABLE TO 
HOLD ANNUAL WORKLOAD 
BY AC 

I 

I 

I 11 



I 



WORK = 



I 



I 
I 

I 

♦♦♦TEST TO SEE IF 
MAINTENANCE LEVEL IS 
ZERO MEANING NO 
WORKLOAD 

1 

I 

I 



♦ 0VER(6.IAI ♦-<• 

♦ .EU. ♦ I 

♦ ♦ I 

♦ ♦ I 

♦ . . . . 

IFALSE . 54 

I . 10 

I 

I 2106 
I 
I 
I 
♦♦♦BRANCH TO THE 
APPROPRIATE ACTIVITY 
MODEL 

I 
I 
I 13 



COMPUTED GO TO 
FOR I A 



2170 
2110 
2180 
2185 
2190 
2110 
2195 



53.15 I 

54.07 I 

54.01 I 

54.04 I 

54.05 I 
54.07 I 
54.11 I 



I 
I 

I 

IF OUTSIDE THE RANGE 
I 
I 



>» 

I 
♦♦♦OVERLAY PATCHING 
MODEL 

I 

53.13 >I 

2170 I 15 
« ♦ 

I WORK = I 

I FACT1^1100*0VER I 
I I3,IAI I 



CHART TITLE - SUBROUTINE YEAi< 



»**UVtRLAY bLOWUP 
MUOEL 



••♦ASSUMED THAT 
THERE ARE NO bLUKUPS 
PKIGR Tu FIFTH YEAR 

53.13 >• 

I 
2130 • 01 



***tEHPi IS THE 
PORTION OF THE TITAL 
MUOJACKING TO BE DONE 



♦♦•OVER RIDE 
WORKLOAD RATE FOR ANY 
ACTIVITY 



S3.13— 
2190 



♦ 


« 


I 


• 


• 
• 


I 




IFALSE 


10 
2106 


♦••IT IS 


ASSUMFf) 




THAT THERE 


WIL BE 


,MU 


BLOWUPS AFTER 25 




YEARS 







1 TEMP 3 = 
I •25^(.5^IY) 
1 ♦«2^EXP(-.5^1Y) 


I 
I 

I 


I 

I 
I 
•♦♦ANNUAL 
LOCATIONS 

I 


MUDJACKING 


I 




06 



I WORK = I 

I TEMP3^52.8/0VER I 
1 (2,IA)^0VER(3,IAI I 



-53.13^-->^ 
I 
2110 ♦ 07 



♦ 


♦ 


TRUE 


♦ lY 


.GT. 25 


♦ -«■ 


• 


• 


I 


♦ 


• 

• • 


1 
I 






. «• • 




IFALSE 


. 5* . 
. 10 . 






2106 


I 
♦♦♦BLOWUP MODEL 


FOR 


BETWEEN 


5 AND 25 




YEARS 


I 




21B1 


I 


03 








I WORK - 


= .005«tlY 


- I 


I 'tl •OVER! 3. I A) 


I 




I 
I 
1 





0VeR(4,I A) 
» .NE. 



ITRUE 
I 
I 
I 
I 
I 

I 03 
« # 

I WORK = nVERI't.IA) I 

# « 

I 
>I 

♦♦♦ACCUMULATED 
WORKLOAD FOR ANY 
ACTIVITY 

I 

I 

I 09 

» 1 

I HWORKIIA) = I 
I HWORKilA) 4^ WORK I 



53.12*— >I 
I 
2106 * 10 



•♦♦SET RAGE. THE 
YEAR OF PAVEMENT 
RESURFACING, EQUAL TO 
ANALYSIS YEAR 

Sl.lO^ — >* 

2195 I 11 



I 

♦♦♦COMPUTE 
RESURFACING WORKLOAD 
I 
I 
I 12 



HWQRKI lA) = 
586.67*WI0TH^ 
0VERI3.IA) 



I 

I 
I 

♦•♦SET ACCUMULATED 
18 KIP AXLES EOUAL TO 
ZERO 

I 

I 

I 13 



I 



4AXLES 



I 



♦RESET DESIGN LIFE 
RLIFE, THE 
URFACED DESIGN 
E 

I 

I 

I 14 



TO 

RES 

LIF 



END OF 00 


• - + 


* « 


LOOP? 

* ♦ 

• • 


♦ I 


I DLIFE = RLIFE 1 




1 


• 
lYES 






. 53 . I 


2199 I NOTE 15 




. 11 . I 


• ♦♦♦♦♦♦«•** 






* CONTINUE * 

**••**♦♦*♦• 

I 






I 






RETURN 






END 






I 

1 



♦♦♦THIS IS A ROUTINE 
AT THE DIRECTION 
LEVEL 



283 



•*♦**••***♦ 

• BEGIN DO LOOP ♦ 
» 2030 ID = 1, 2 ♦ 
»**♦♦♦•*♦•• 



♦♦♦CRACKSEALING 
MODEL 

53.13 >♦ 

2185 I 04 

« « 

I WORK = I 
1 FACTl^lOOO^OVER I 
I (3)IAI I 

V * 

I 
I 
I 



55. 


17— >l 


♦♦♦INITIALIZE TEMPI 


F3R 


EXCESS VOLUME TO 


ZERO 


1 




1 

I 17 


* 


* 


I 


TEMPI = I 


* 


* 




I 



I NOTE 18 
***••»•♦•** 
» BEGIN DO LOOP ♦ 
• 2031 IH = 1, 24 » 
*•*♦**♦**•* 

I 

I 

I 

I / 



i 



CHART TITLE - SUBROUTIWE YEAR 



5*.13« — >* 
I 

«**0ET£RMINE THE 
HOURLY TRAFFIC 
VOLUME ON THE FREEWAY 



I 



HVOL(IH) = 

VOLUME( 11 

♦ABSl ID - I - 

SPLITdl/lOO) 

*PCTAUT ( IH,7. 10. 

II * TEMPI 



1 

*»«OETCRMINE NORMAL 
FREE»(AY CAPACITY 

I 

I 

I 02 
« « 

CAPACT = 

CAPILANES * 

I)*U - 

PCTAOT( IH,6,I0, i) 
) 

I 



**«TEST TO DETERMINE 
IF HOURLY VOLUME 
EXCEEDS NORMAL 
CAPACITY 

»»*AND IF IT DOES 
HOLD EXCESS IN TEMPI 

I 

1 

I 

* 03 



FALSE » * 

« HVOL( IH) .GT. * 

♦ CAPACT t 



I TEMPI = I 
I HVOL(IH) - CAPACT I 



•s«*LET THE HOURLY 
NORMAL VOLUME 8E THE 
ACTUAL VOLUME LESS 
TEMPI 

I 

I 

I 05 
4 * 

I HVOL(IH) = I 
I HVGLI IH) - TEMPI I 



»»*DETERMIN V/C 
SUBSCRIPT 



I I = I 

I (HVOLCIH) I 
I /CAPACT + .15)«10 I 



>» 

I 

•♦♦ASSIGN A SPEED TO 
THE HOUR 

I 

I 07 

4 if 

I SPEEDNI IH) = I 
I SPILANES +1,1) I 



i 

♦•♦DETERMINE THE 
HOURLY TRAFFIC VOLUME 
ON THE DETOUR 

I 

I 

I 00 
4 4 

I UVOL(IH) = I 

I HVOL(IH) I 

I ♦QET0UR(4) I 

I /VOLUME! 1) I 

4 4 

I 

I 

I 
♦♦♦DETERMINE NORMAL 
DETOUR CAPACTITY 



09 



1 CAPACT = I 

I DETOUR (5)^(1 - I 

I PCTADTI IH,6, 10,1) I 

I I 1 



I 
I 






♦••DETERMINE 




V/C 


SUBSCRIPT 

I 
I 
I 




10 


I I = 




I 


1 IDVQLIIH) 


I 


I /CAPACT t . 


15)^10 I 



♦♦♦SUBSCRIPT 


CANNOT 


EXCEED ELEVEN 

I 








I 
• 


U 






• ♦ 








♦ 


♦ 




FALSE 


♦ 


♦ 




+ <. 


I .GT. 


11 ♦ 






♦ 


♦ 






♦ 


♦ 






♦ ♦ 








« 




, 




ITRUE 






I 
I 
I 
I 
1 
I 




Id 


I ♦ 

1 I 


I = II 




-♦ 
I 












1 












♦♦♦ASSIGN A 


SPEED 


TO 


THE 


HOUR FOR 
I 


3ET0UR 






1 
I 




13 


I 


SPEEDD(IH) = 


I 


I 


SPCLANES 


>I) 


I 


« 


1 
I 




-♦ 



♦ NO 
END OF DO ♦-+ 
LOOP? ♦ 



. 5 
. 



16 I 




H 


14 I 
I . I 


MAINT 


H 

H 


10 I 




H 


11 I 




H 










I 


16 








17 I 




H 


15 I 
I. I 


MOTOR 


H 
H 


10 I 




H 


11 I 




H 



2030 ♦ 17 

♦ • 

♦ ♦ 

* ♦NO 

* END OF DO *-t 

* LOOP? ♦ I 

♦ ♦ I 

♦ ♦ I 

I YES . 54 . 
I . 17 . 

I .... 

I 
I 
I 
I 

♦•♦TEST FOR 
RESURFACED ROADWAY 
I 
I 
I 

• 18 
« ♦ 

♦ « 

* ♦ TRUE 

* 0VER(6,7) ♦-+ 

* .NE. 1 • I 



• • 



I 



IFALSE . 56 . 
I . 03 . 
I 

I 2040 
I 

I 

I 
•**SET MAINTENANCE 
LEVEL E9UAL TO ZERO 

I 

I 19 
* « 

I 0VER(6,7) = I 

4 « 

I 

I 

I 
•••RESET THE INITAIL 
PSI TO 3.6 , THIS IS 
80« OF THE NEW 
PAVEMENT VAL 

I 



>* 

I 21 

« « 

I PSIASN = 3.6 I 



I 

I NOTE 22 
*•••«*•*•*• 

• BEGIN 00 LOOP • 

* 2035 lA = 1, 7 * 

I 
>I 

I 23 

« « 

I HWORK(IA) = I 

« « 

I 
I 
I 

2035 * 24 



END OF DO 
LOOP? 



• 


• 


TRUE 


* ITYPE 


.NE. I 


♦-+ 


« 


* 


I 


• 


* 


I 


* 


* 


I 






• ••. 




IFALSE 


. 56 . 
. 03 . 






2040 








• ••MAKE 


THE 




FOLLOWING 


CONVERS 


IONS 


FOR CONCRETE PAVEMENT 


•••TO REFLECT THAT 


PAVEMENT 


TYPE IS 


<IOW 


COMPOSITE 


I 




I 
•••COMPOSITE 




PAVEMENT 


IS ITYPE 

I 
1 


= 3 

26 



ITYPE 



I 
I 
I 

•••SET THE 
MAINTENANCE LEVEL FOR 
PARTIAL DEPTH 
PARTCHING TO ZERO 



I 
I 
I 

•••SET THE 
SIMULATION FACTOR TO 
TEN FOR BITUMINOUS 
PATCHING 

I 

I 

I 

I / 

/56.01 



284 



CHAHT TITLE - SUaKuUTlNE YEAR 



1 



I SIMU t2 ) = 


-- 10 


I 


I 
I 

I 
***SET THE 
MAINTENANCE LEVEL 
JOINT SEALING TO 
ANNUAL 

1 


FOR 


I 
I 




02 


I 0V£R(6t'il 


= 1 


I 


55.18*— >I 

20^.0 1 NOTE 

* CONTINUE 

i 


03 
* * 


1 
»»*THIS IS A ROUTINE 
TO COMPUTE 

ACCUMULATED ACCIDENTS 
AND POLLUTION 


I 
I 




0', 


I N = LANES 


+ I 


1 

— ft 



I 

I 

I NOTE 05 
**ft<<««ftftftftft 
» tiEGIN 00 LOOP « 
» 2050 lU = 1, 2 * 
«*ft*ftftftftft*ft 

I 
56. 11 >l 

I NOTE Oo 
ftft********* 

* BEGIN DO LOOP » 
» 2051 IC = 1, N ♦ 

*«ft«ftft##*4* 

I 

1< 

I NOTE 07 
ftft^ftftft^ftftft* 

* SEGIN DO LOOP ft 
» 2052 lA = 1, 7 • 
ftftftftftftftftftftft 

I 
>l 

I Od 



I COSTS! lA, IC,*, ID) 
I COSTS! I A, IC, 3, ID) 



*1UO/AACOST 



I 

1 

I COSTS! I A, IC, 7, ID) 

I 

1 COSTS! IA,IC,7,IU) 

I *130/! VOLUMEll) 

I 4PR0JLNI 

ft 

I 
I 
I 



END OF DO 
LOOP? 



END OF DO « 
LOOP? » 



END 


OF DO 




*-♦ 


LOOP? 


ft 


I 


ft 


ft 




I 


ft 


ft 




I 




ft 




... 




I YES 




56 




I 




06 



SUBROUTINE 



NOTE 

^ftftftftftftftft 
* BEGIN DU LOOP 

f 5100 I = I, B 

*ftftft*ft#ftft 
I 

56.20 >I 

I NOTE 
fftftftftftftftft 

> BEGIN DO LOOP 

> 5101 ID = I, 2 
Itftftftftftftftft 



13 

ft ft 



l<- 
I 



I 


N = LANES ♦ 1 


I 


ft 
ft 
ft 


I 
I 

I NOTE 

ftftftftftftftft 

BEGIN 00 LOOP 

5102 IC = 1, N 

ftftftftftftftft 

1 


15 

ft ft 

ft 

ft 




I 


16 


I 

I 


I TOTAL! ICI , 10) 



= I 
I 



END OF 00 
LOOP? 



>» 

I 
5101 * 18 

ft ft 
ft ft 
NO * ft 

ft END OF 00 « 

* LOOP? ♦ 



lYES 
I 
I 
I 

I 
I 

I 19 

ft ft 

I TOTALYII) = I 

ft ft 

I 
I 
I 

5100 * 20 

ft ft 

ft ft 

ft * NO 

« END OF 00 »-+ 

* LOOP? » I 

ft ft I 



YES .56 

. 13 



NOTE 21 
ftftftftftftftftftftft 

* BEGIN 00 LOOP * 

* 5110 10 = 1, 2 * 
ftftftftftftftftftftft 

I 
57.06 >I 

I NOTE 22 
ftftftftftftftftftftft 
« BEGIN 00 LOOP ♦ 

* 5111 lA = 1, 7 » 
ftftftftftftftftftftft 

I 

57,05 >I 

1 23 

ft ft 

I 1 = 1 I 

I I 

I N = LANES + 1 I 

ft ft 

I 
I 

•♦♦ACCUMULATE TOTAL 
COST BY ACTIVITY AND 
CLOSURE AND 

♦♦♦ACCUMULATE TOTALS 
FOR EACH COST ITEM BY 
CLOSURE 

I 

I 

I NOTE 2', 
ftftftftftftftftftftft 
ft BEGIN 00 LOOP ♦ 

* 5112 JC = 1, N ♦ 
ftftftftftftftftftftft 

57.01 >I 



I COSTSIIA, 


!C 


,s 


10) 


I 


I COSTSIIA 

ft 


IC 


,5 


ID) 


1 
• ft 



I NOTE 26 
ftftftftftftftftftftft 

♦ BEGIN DO LOOP « 

♦ 5113 K = 1, 3 ♦ 

ftftftftftftftftftftft 
I 
I 



— 56.26* — >♦ 

I 27 

ft « 

I COSTS! lA, IC,3,ID) I 

I COSTSIIA, IC, 8, ID) I 

I + I 

I COSTSIIA, ICK, 10) I 

I I 

I ITOTALI ICK.IO) = I 

I ITOTALI ICK, ID) + I 

T COSTSIIA, ICK, ID) I 

ft ft 

1 
I 
I 



END OF DO 
LOOP? 



NOTE 29 
ftftftftftftftftftftft 
« BEGIN 00 LOOP * 

♦ 511* K = *, 8 ♦ 

ftftftftftftftftftftft 
I 

>I 

I 30 
ft « 

I ITOTAL! ICK, ID) = I 
I ITOTAL! ICK, 10) ♦ I 
I COSTSIIA, IC,K, 10) I 



END OF 00 
LOOP? 



I 






I 






I 
I 






1 

♦♦♦NOLO LANE 


CLOSURE 


SUBSCRIPT FOR 


MIN 


HUM 


COST 






1 
ft 


32 




* ft 






* 


ft 




♦ COSTSIIA, ♦ 


FALSE 


♦ IC,8,I0) 


.LT. 


*-+ 


♦COSTSIIA 


I ,♦ 


I 


* 8. ID) 


ft 


I 


* ft 




I 


ft 




• . • • 


I TRUE 


57 . 


I 




01 . 


I 




• • • • 


I 

I 
i 
I 




33 


I I = IC 




1 


I 
I 






I 






I / 





285 



CHART TITLE - SU8R0UTINE YEAR 



56.32» — >* 

5112 « 01 



♦ * NO 
* END OF DO *-+ 

* LOOP? * I 

* * I 

* * I 
* .... 
tYES . 56 - 
I . 25 . 
I .... 

I 
I 
I 
I 
♦♦♦ACCUMULATE ANU 
HOLD MINIMUM COST 
I 

I NOTE 02 
«♦♦*♦»***♦» 
* BEGIN 00 LOOP ♦ 
» 5115 K = 1, 8 * 

***♦♦«♦»««» 

I 
>( 

I 03 

* » 

I TOTALVIK) - I 

I TOTALY(K) * I 
I COSTS(iA,I,K,IDI I 

• • 

I 
I 
I 

5115 * 04 

♦ ♦ 

♦ ♦ 
NO * ♦ 

» END OF DO * 

» LOOP? * 



END OF 00 


«-«■ 


LOOP? 


* I 


♦ ♦ 


I 


♦ « 


I 


* 


. ■■ 


lYES 


. 56 


I 


. 23 





* 


NO 


END OF DO 




*-+ 


LOOP? 


« 


I 


* * 




I 


♦ ♦ 




I 


♦ 




■ • • • 


I YES 
I 




56 
22 



♦♦♦TEST FOR PRINT 
LEVEL 

♦♦♦ I. DIRECTION 
DETAIL 

♦♦* 2. YEAR 
DETAIL 

♦♦♦ 3. YEAR 
SUMMAKY 

I 
I 



-57.15^— >♦ 



*♦♦ 4. ANALYSIS 
SUMMARY 

I 



I COMPUTED GO TO I 

I FOR IPRINT I 

* .* 

I 5010 57.09 I 

I 5020 5 8.04 I 

I 5000 59.01 I 

I 5000 59.01 I 



I 
I 
I 

IF UUTSIDE THE RANGE 

I 


♦♦♦DIRECTION DETAIL 
PRINT ROUTINE 


57.08 >I 

5010 I NOTt 

♦ ♦♦♦«««4^ 

♦ CONTINUE 
**♦♦*♦♦♦♦ 

I 


09 

♦ 
♦ ♦ 


I 

I NOTE 
****♦*♦♦♦ 

♦ BEGIN 00 LOOP 

* 5011 ID = 1, 2 

«♦**♦♦♦** 
I 
58.03— >I 

I 


10 

♦ ♦ 

♦ 
♦ 

* ♦ 

11 


I IPl = 


I 


1 

I 

. 5014 I 


12 


/ 


/ 



/ URnt TO DEV / 
/ MO / 

/ VIA FORMAT / 

/ 101 / 



13 



/ WRITE TG DEV / 
/ MO / 
/ VIA FORMAT / 
/ 102 / 
/ FROM THE LIST / 







1 
I 
I NOTE 


14 




♦ * 


<<#*♦** 


♦ ♦ 






.1ST = lY, 


♦ 




(DIRECT(J,10),J 


= * 






1.21 


♦ 




♦ ♦ 


4 ♦ « « 4c « 
I 

I 
I 

• 15 

,♦ ♦ 
♦ * 


♦ ♦ 




* 


♦ 


FALSE 




♦ 


ID .GT. 2 


* 



I TRUE 

I 

I 

I 

I 



16 

--♦ 
I 



I 17 

/ / 

/ WRITE TO DEV / 
/ MO / 
/ VIA FORMAT / 
/ 103 / 

I 

I 18 

/ / 

/ WRITE TO DEV / 
/ MQ / 
/ VIA FORMAT / 
/ 104 / 



I 19 

/ / 

/ WRITF TO DEV / 
/ MJ / 
/ VIA FORMAT / 
' 105 / 



I 

I NOTE 20 
***♦**♦***♦ 
♦ BEGIN DO LOOP ♦ 
» 5012 lA = 1, 7 ♦ 
*♦****♦*♦*♦ 

I 

I 21 

* « 

I N = LANES ♦ 1 I 



1 NOTE 22 

♦ ♦♦♦♦♦♦♦♦♦♦ 

♦ BEGIN DO LOOP ♦ 

♦ 5013 IC = 1, N ♦ 

♦ ♦♦^♦«4i«*t^ 

I 



I 



23 



/ WRITE TO DEV / 
/ MO / 
/ VIA FORMAT / 
/ 106 / 
/ FROM THE LIST / 

I 
I 

I NOTE 24 
«♦♦♦♦♦♦♦♦♦♦ 

♦ LIST = lA, IC, ♦ 

♦ (COSTS! lA, ICJ, ♦ 

♦ ID). J = 1.8) ♦ 

♦ ♦*♦*♦*♦♦♦♦ 



I 



END OF DO 
LOOP? 



END OF D3 
LOOP? 



27 

/ / 

/ HR ITE TO OEV / 
/ MO / 
/ VIA FORMAT / 
/ 105 / 

I 
I 
I 



it 

I I 

I WRITE TO DEV / 
/ MO / 
/ VIA FORMAT / 
/ 111 / 







I 

I 


29 




N = 


LANES * 1 


I 


♦ 


♦ ♦ ♦ 


I 
I 

I N3TE 
♦ ♦ ♦ ♦ ♦ 


30 

* ♦ 


♦ 
♦ 
♦ 


BEG 

5015 

♦ ♦ ♦ 


IN DO LOOP 
IC = I. N 

♦ ♦ ♦ ♦ ♦ 

I 


* 

♦ 

♦ ♦ 






I 


31 



/ WRITE TO OEV / 
/ MO / 
/ VIA FORMAT / 
/ 107 / 
/ FROM THE LIST / 







I 
I 

I 


NOTE 


32 




♦ ♦ * ♦ 


♦ 


♦ ♦ ♦ 


* ♦ 




LIST 


= 


IC, 


♦ 




(ITOTALIIC.J.IDI 


, ♦ 




J =■ 




8) 


* 




♦ * ♦ ♦ 




♦ ♦ ♦ 


• * 




5015 




33 





END OF D3 
LOOP? 



34 

/ / 

/ WRITE TO OEV / 
/ MO / 
/ VIA FORMAT / 
/ 111 / 

I 
I 
I 
I / 



CHART TITLE - S'JBKUJTINE YEAR 



1 01 

/ / 

/ WRITE TO OEV / 
/ MO / 
/ VIA FORMAT / 
/ 111 / 





I 

I 
I 




02 


/ 


/ 

/ WRITE TO 
/ MO 
/ VIA FORMAT 
115 


OEV 

/ 

/ 


/ 
/ 
/ 



« 






» NO 


♦ 


END OF DO 


♦ -♦ 


* 




LOOP? 


* I 




« 


« » 








* 


• •• • 






lYES 

1 
1 
I 

I 


• 57 
. 11 


•**YEAfl 


I 
DETAIL 


PRINT 


ROUTINE 






57.08-- 


->I 




5020 


I NOTE 0* 


» * » 


* 


* * * * 


* * « 


* 


CONTINUE 


* 


« » * 


* 


I 
I 
1 


» * * 
05 



/ MR ITf TO DEV / 



/ VIA FORMAT / 
/ 101 / 



I 



0& 



/ WRITE TO UEV / 
/ MO / 
/ VIA FORMAT / 
/ 102 / 
/ FROM THE LIST / 

I 
I 

I NOTE 07 

* LIST = lY, • 

* (01 RECT IJ.J) ,J = « 

* 1,2) <■ 

*********** 
1 
1 
I 08 

/ / 

/ WRITE TO OEV / 
/ MO / 
/ VIA FORMAT / 
/ 103 / 



I 



/ WRITE TO DEV / 
/ MH / 
/ VIA FORMAT / 
/ 104 / 



I 



/ / 

/ WRITE TO DEV / 
/ Mfl / 

/ VIA FORMAT / 

/ 105 / 

I 
1 

I NOTE 11 
#«*»**#**♦« 

* BEGIN DO LOOP » 

* 5021 U = 1, 7 » 

I 

58.20 >I 

I 12 



I 



N = LANES «■ 1 



I 



I 
I 

I NOTE 13 
*********** 

• BBGIN DO LOOP » 

* 5022 IC = I, N « 

I 



I NOTE 14 

* BEGIN 00 LOOP « 

* 5023 J = 1, 8 • 

I 
>I 

I 15 

4c 4; 

I COSTS! lA, ICJ, 1) 

I 

I COSTS! lA, IC, J,l) 

I * 

I COSTS! lA, ICJ, 2) 



r 

I 

5023 * 16 



END OF DO 
LOOP? 



17 



/ WRITE TO OEV / 
/ MU / 
/ VIA FORMAT / 
/ 106 / 
/ FROM THE LIST / 

1 
I 

I NOTE 18 

» LISr = lA, IC, * 
« (COSTS! lA, ICJ, 1) * 
♦ , J ^ 1,8) * 

I 

I 



END OF DO 
LOOP? 



* NO 
END OF DO *-♦ 

LOOP? * I 
• * I 

« « I 



YES 



58 
12 



21 
/ 



/ WRITE TO DEV / 
/ MO / 
/ VIA FORMAT / 
/ 105 / 





I 
I 

I 




zz 




/ 




/ 




/ WRITE TO 


DEV 


1 




f MU 




1 


/ 


VIA FORMAT 


/ 




/ 


11 1 


/ 






I 
I 
I 




23 










I 


N = LANES 


* 1 


I 




1 

I 







I NOTE 24 

« BEGIN 00 LOOP * 
« 5024 IC = 1, N • 

1 

58.30 >I 

I NOTE 25 
*********** 

* BEGIN 00 LOOP * 

• 5025 J = 1, 8 « 

I 

I< 

I 26 

if * 

I ITOTAL! ICJ.l) = I 
I ITOTAL! ICJ, 1) * I 
I ITOTAL! ICJ, 2) I 



ENO OF DO 
LOOP? 





/ 


WRITE TO 


DEV 


/ 




1 


MO 


/ 






/ V 


lA FORMAT 


/ 






1 


107 


/ 




/ 


FROM 


THE LIST 


/ 





I 
I 

I NOTE 29 

* LIST = IC, » 
! ITOTAL! ICJ, II , • 

* J = 1,8) « 

I 
I 
I 

5024 * 30 



* NO 

ENO OF 00 •-* 

LOOP? * I 

* « I 

« « I 



I YES .58 
. 25 



31 

/ / 

/ WRITE TO DEV / 
/ MO / 
/ VIA FORMAT / 
/ 105 / 

I 
I 
I 



.59.09. 
... 3026 



287 



CHART TITLE - SUBROUTINE YEAR 



***SUMMARY HEADER 
PRINT ROUTINE 

57.08* — >* 

5000 I NOTE C 



**4:«#««** 

I 

I 

1 
***PRIiNT SUMMARY 
HEADER ONLY ONCE 

I 

I 

I 



COMPUTED GO TO 
FOR lY 



I 5027 
I 5026 



59.04 
59.09 



I 
I 
I 

IF OUTSIDE THE RANGE 
I 
I 
I 03 



/ 


5027 


1 


59.02- 


I 
— >I 

I 


04 


/ 




/ 


/ WRITE TO 


OEV / 


/ 


MO 


/ 


/ VIA 


FORMAT 


/ 


/ 


101 


/ 


1 
I 

I 05 


/ 




/ 


/ W5 I TE TO 


OEV / 


/ 


MO 


1 


/ VIA 


FJRMAT 


1 


/ 


112 


1 


I 
I 
I 36 


/ 




1 



I WRITE TO OEV / 
/ M3 / 

/ VIA FORMAT / 

/ 113 / 

I 
I 
I 07 

/ / 

/ WRITE TO DEV / 
/ MO / 
/ VIA FORMAT / 
/ 105 / 



I 
1 

I 08 


/ 






/ 


/ WRITE TO OEV 


/ 


/ 


MO 




/ 


/ VIA 


FORMAT 


/ 


/ 


LU 


1 




53.31*- 


I 
— >I 




5026 


I NOTE 


09 


* * 9 * 


<= * * * 


* 


9 « 


* COMTINUE 




« 


* * * * 


* * « « 

I 


* 


S * 


I 

*»*TEST FOR YEARLY 


SUMMARY 


PRINT 

I 
I 







• * TPue 

* IPRI\T .';t. 3 <■ 



/ 



/ WRITE TO DEV / 
/ MT / 
/ VIA FORMAT / 
' 111 / 

I 



/ WRITE TO OEV 
/ HO / 
/ VIA FORMAT / 
/ 108 / 
/ FROM THE LIST / 



I 

I NOTE 13 

» LIST = « 

» ITOTALYIJI.J = * 
« 1,8) « 

*********** 

I 

I 

I 
**«DISCQUNT MINIMUM 
COSTS 

1 
>I 

5029 I NOTE 14 
« CONTINUE ♦ 

I 



I 



15 



« « 

A = ( 1 t 

RATei)»«IY 



TOTALY(l) - 
TOTALYI U/A 



T0TALY(2) = 
T0TALX(2)/A 



T0TALY(3) = 

T0TALY(3)/A 

« « 

I 
I 

I 15 
« 1 

I TOTALYI 5-) = I 

I T0TALY(5)/A I 



T0TALYI3) = 
T0TaLYI8)/A 



I 
I 

»*«ACCUMULA1 e 
DISCOUNTED COSTS 
I 
I 
I NOTE 17 

* 8EGIN 00 LOOP • 
« 5030 J = 1, 8 • 

I 



13 



I TOTALAIJ) = I 
I TOTALAIJ) + I 
I TOTALYIJ) I 



END OF DO 
LOOP? 



CHAk r Tint - SUBROUTINE VEAR 



59.19 >♦ 

1 

•••TEST FOR rEARLY 
SUMMARY PRINT 
I 
I 

* 01 



TRUE * * 
• IPRINT .GT. 3 • 



02 



/ WRITE TO DEV / 
/ MO / 

/ VIA FORMAT / 

/ 109 / 

/ FROM THE LIST / 





I 
I 

I NOTE 03 




LIST = » 

(TOTALYI J) iJ = * 

1.8) * 

I 




1 

1 04 



/ WRITE TO OEV / 
/ MO / 

/ VIA FORMAT / 

/ no / 

/ FROM THE LIST / 





I 

1 

1 NOTE 


05 


« 


*«*«***« 


* * 


* 


LIST = 


♦ 


» 


(TOTALA(J) ,J = 


» 


* 


1.8) 


* 


* 


I 


* * 
06 



/ / 

/ WRITE TO DEV / 
/ MO / 
/ VIA FORMAT / 
/ 105 / 



5031 


I 
I 

I NOTE 


07 


# ♦ * 


* * 


« * * * 


* * 


* 


CONTINUE 


* 


* * * 


« * 


• » » ♦ 
I 

> I 
1 

• 08 


* * 


2000 






* 


* 






* 


• 


«■ 


* 




« 


NO I 


* 


END 


OF 00 


• -♦ I 


* 


LOOP? * 


I I 




* 


* 


1 I 




» 


# 


I I 








• •• ■ I 






I YES 


49 . I 






} 


Ob . I 










♦ **PR|iN|T 


ANALYSIS 1 


SUMMARY 




I 
I 
I 



>* 

t 10 

/ WRITE TO OEV / 
/ MO / 
/ VIA FORMAT / 
/ 110 / 
/ FROM THE LIST / 

I 

I NOTE 11 

» LIST = * 
» (TOTALAI J) , J = • 
• 1,8) * 

I 
I 

RETURN 

I 
I 
I 12 

• EXIT * 



SUBROUTINE MAINT 



MAINT 



I 
55. 15 >I 

I NOTE 01 

« UEGIN DO LOOP * 
* 3010 I A = 1, 7 * 

I 
72.11 >I 

I 
**»TEST TO OETEKMINE 
IF THERE IS ANY 
WORKLOAD 

I 

1 

I 

* 02 



HiVORK( lA) 
• EQ. 



«* UETERMlr.JE A 
FACTOR FOR THE LEVEL 
OF MAINTENANCE 
»* THE LEVEL OF 
MAINTENANCE FACTOR 
MUST BE AN INTEGER 
NUMBER 

I 

I 

I 03 
« * 

I NA = 0VER(6. lA) 1 
# « 

I 
I 

I 
*» TEST TO DETERMINE 
IF WORKLOAD WILL BE 
DONE AT LEAST ONCE IN 
YEAR 

I 

I 

* 04 
* ♦ 



* NA .GE. 1 «- 



IFALSE 

I 

I 

I 

I 

I 

♦♦♦ACCUMULATE 

MAINTENANCE LEVEL IN 

FIRST DIRECTION 

I 

I 

I 

* 05 
* * 
♦ « 
* ♦ FALSE 
♦ ID .EQ. 1 ♦ 



» ♦ 
* 
ITRUE 



I TLEVtLI lA) = I 
I TLEVELI lA) + I 
I 0VER(6,IA) <■ .001 I 



** TEST TO DETERMINE 
IF ACTIVITY WILL BE 
PERFORMED IN ANALYSIS 
YEAR 

I 



I 



TLEVELI lA) 
► .LT. 1 



I 



IFALSE . 72 . 
I . 11 . 

i .... 

I 3010 

I 

I 

I 
♦• RESET THE 
ACCUMULATED 
MAIlMTENAiNCE LEVEL 
VARIABLE BECAUSE WORK 
EXEC 

I 

I 

I 

♦ 08 



ITRUE 

I 

I 

I 

I 

I 

I 



I TLEVEL(IA) 



MAI 
ONE 



SET LEVEL OF 
NTENANCE FACTOR TO 

I 
I 

I 10 



3021 I NOTE 11 
CONTINUE * 



I 

♦* DETERMINE THE 
CREW HOUR COST FOR 
LABOR AND EQUIPMENT 

1 

I 



I CU = 1 

1 PS( lA, ITYPE, I) I 



>* 

I 

*«*INITI ALIZE 
WORKSITE TYPE 

I 
I 



I 

I 
I 

♦♦♦DETERMINE IF 
WORKSITE IS UNIFORMLY 
OR RANDOMLY SPACED 
I 



I 



1* 



1 
I 
I 

♦♦♦INITIALIZE LF, A 
LANE FACTOR USED TO 
MODIFY SIMULATION 
WORKLOAD 

I 

I 

I 15 



I 



LF 



1 



I 



I 
I 
I 

♦♦ ESTABLISH THE 
AMOUNT OF WORKLOAD TO 
BE DONE FOR EACH 
OCCUPANCY PER 
I 

I 16 

t « 

I WK = HWORKI lAI/NA I 



I 

I 
♦♦ ASSIGN CREW 
TRAVEL TIME TO TT 

I 

1 17 

# « 

I TT = 0VER(5fIA) I 



I 

I 
I 

♦♦ DETERMINE THE 


OCCUPANCY FIXED 


CREW 


HOURS FOR EACH 




OCCUPANCY 

I 




I 


IB 


I FIXHRS = 


I 


I 2^0VER(8,IA) 


* I 


I 0VER(7,IA) 


' 



1 

I 

♦♦ TEST CREW WORK 
HOURS AGAINST 24, 
WHICH MEANS 
CONTINUOUS WORK 

I 

I 



TRUE ♦ ♦ 

♦ QVERd.IAl 

♦ .NE. 24 ♦ 



♦♦ ASSUME NO CREW 
TRAVEL TIME OR 
F IXHOUHS FOR 24 HR 
OCCUPANCY 

I 

I 



♦♦ ADJUST AVAILABLE 


CREW HOURS FOR 


TRAVEL 


TIME 

1 










3050 I 




22 


I CREWT = 




, 


I OVERd.IA) - 


TT 


I 








I 
I 






♦« ASSIGNMENT 






PROCESS FOR ALL 






POSSIBLE LANE 






CLOSURES 






I 

I NOTE 


23 


♦ ♦♦♦♦♦♦♦ 


♦ 


♦ ♦ 


♦ BEGIN 00 LOOP 


♦ 


♦ 3031 IC = 1 




♦ 


♦ LANES 




♦ 


♦ ♦♦»**♦♦ 


# 


» ♦ 


70.24— >I 






♦♦♦TEST TO DETERMINE 


IF LANE FACTOR, 


•LF 


• 


WILL BE SET EQUAL 


TO 


LANES C 

I 







ITRUE 

I 

I 

I 

I 

I 



I 
♦♦♦INITIALIZE FIRST 
UNAVAILABLE HOUR OF 
ROADWAY OCCUPANCY TO 
ZERO 

I 

I 

T 

I / 



/65.01 



290 



cha:<t title 



SUttROUTINE MAINT 



->* 



1 
I 
I 

«»4aDJUST THE 
AVAILABLE UCCUPANCY 
HUUKS ARRAY MHOUR' 
FJR V/C CONSTRA 
I 

I t^OTE 02 

* OtGIiM UO LUUP « 

» 3700 IH = I, ZA » 
*********** 

I 
>I 

I 
*»«I.'JITI AL12E JHOUR 
TO IHMR 

I 
I 
1 03 



I JHOUR(IH) - I 

I IH'JUKI IH, 1 A) I 



END OF UO 
LOOP? 



lYES 

I 

I 

I 
I 
I 

*»*IF DETOUR EXISTS 
BYPASS V/C RESTRAINTS 
I 
1 
1 
* 05 



« IC .EQ. » 

LANES .AND. 

»0VER(12, lAl* 

«.EJ. * 



65 
16 



***TEST T 
IF ROAD Ml 
CLOSED FOR 



DETERMINE 
L 8E 
2<i HOURS 



* 


TRUE 


OVER (I il A) 


«-+ 


• EQ. 24 ♦ 


I 


* * 


I 


* * 


I 


* 


. ■ • ■ 


IFALSE 


. 65 . 




. 16 . 




3703 



I NOTE 07 

* BEGIN DO LOOP * 

» 370'. IH = 1, 2<t ♦ 
*********** 



65.15- 



««*DETORMINE THE 
CAPACITY OF CLOSURE 

I 

I C 

I CAPACT = 

I CAP(IC) <• 

I (0VER(12,IA) 

I *CAP( LANES) I 

^ 

I 
I 

r 



TRUE * * 

+ .* [c .NE. LANES 



IFALSE 

I 

I 

I 

I 

I 

«««UETERMINE 
CAPACITY OF SHOULDERS 
I 

I 

I 10 

^ 4 

I CAPACT = I 

1 CAP( IC)«DVER( 12. I 
I lA) I 



I NOTE II 
****** 



I 
I 

«*»CaMPUTE THE 
VOLUME CAPACITY RATIO 

I 

I 

I L2 
* ^ 

TEMPI = 

HVOLI IH) 

/<CAPACT«l 1 - 

PCTADTI 1H.6.ID.1) 

) ) 

* * 

I 
I 
I 

*»*TEST THE 
VOLUME-CAPACITY RATIO 
AGAINST THE PERMITTED 
V/C RATIO 

I 
I 
I 
3702 * 13 



TEMPI .GT. 
*OVERl 10, lA)* 



I 14 

* 

JHOURdHI = I 



65.05* 
3703 



»« INI 

NUMBER 
CONTROL 
LANE CL 



ND OF DO 


*- + 


LOOP? * 


I 


* 


I 


* * 


I 


* 


• . . 


lYES 


65 


1 


08 


I 
— >I 




I NOTE 


16 


***** 


* * 


ONTINUE 


* 


***** 


* * 


1 
TIALIZE THE 




OF TRAFFIC 




ZONES FOR 




OSURE TO 

I 




I 
I 


17 



*» INI 
ACCUMUL 
LENGTH 
CLOSURE 



1 

TIALIZE THE 


ATEC 


ZONE 


FOR 


LANE 


TO 

I 
I 


ZERO 



1 
I 
I 

** INITIALIZE CREW 
HOURS FOR LANE 
CLOSURE TO ZERO 

I 

1 

I 1 



I 



CREWHI IC) = 



**4INITIALIZE NO 
AVAILABLE OCCUPANCY 
TIME INDEX 

I 


I 


20 


I NOTIMEdCI = 


1 


I 

1 

I 
»* INITIALIZE 
OCCUPANCY HOURS 
LANE CLOSURE TO 

I 


FOR 
ZERO 


I 

1 NOTE 21 
*********** 

* BEGIN 00 LOOP * 

* 3015 IH = 1. 24 * 
*********** 

I 



-55.21* — >* 
I 



I HRSI lA, IH.IC) = I 



END OF DO 
LOOP? 



I YES 

I 

I 

I 

I 

I 

I 
*« ESTABLISH 
SIMULATION WORKLOAD 
DENSITY FACTOR 

I 

I 

I 24 



DENSEW = 

SHORK(IA) 

*LF/(WK*IC) 



I 



I 
I 

I 

«• SIMULATE THE 
ASSIGNMENT OF CREWS 
TO THE ROAD TO 
PERFORM WORK 

I 

I 

I 
«* INITIALIZE 
VARIABLES FOR 
SIMULATION PROCESS 
»« PATCH ARRAY 
COUNTER 

I 

I 

I 25 



I 



IW 



I 



I 
I 

I 

** ACCUMULATED 
PRODUCTION TIME 

I 

I 

I 



I 



TTIME = 



»«*ESTABLISH THE 
NUMBER OF SIMULATION 
ITERATIONS 
I 



I 



27 



I ISIM = SIM( IA,4) 

« 

I 



»*»ESTABLISH 
SIMULATION FACTOR FOR 
RANDOM LOCATIONS 

I 

I 

I 28 
« « 

I SFACT = lOOO/ISIH I 



291 



CHART TITLE - SUtiROUTlNF MAINT 



5b. 28— 



I 



** INCREMENT THE 
WORKLUAD ARRAY 
I 

70.18 >I 

3025 I 

« 

I IK = IW + I 



* * 


TRUE 


* IW .GT. ISIM 


*-+ 


« * 


I 


* * 


1 


« lit 


I 


« 


.... 


IFALSE 


70 . 


I 


19 . 



SUBROUTINE 



** IF IMl IS ZERO 
THIS IS THE FIRST 
TIME FOR 

ROUTINE, ACTIVITY, 
CLOSURE 

I 



I . 09 . 

I 3*92 

I 

1 

I 

** DETERMINE THE 
FIRS r HUUR WHEN CREWS 
CAN NOT JCCUPV ROAO 

1 

I 

I NOTE 04 
*«««***»4** 

* BEGIN DO LOUP * 

* 3490 I = 1, 24 * 

I 
66.00 >l 

* 05 



* 




* 


TRUE 


JHUURI I 1 


.EJ. 


*-*- 


* 





V 


I 




* 


* 


I 




* * 




1 




* 




.... 




IFALSE 


66 . 




I 




oe . 



>* 

I 

3490 * 06 



END OF 00 *-»■ 

LOOP? * I 

* • I 

« * I 



YES 



66 



«* ASSUME FIRST 
OCCUPANCY HOUR TO BE 
6AM IF ALL HOURS ARE 
AVAILABLE 

I 

I 07 



56.05 >I 

I 



I 
I 
I 

♦* INITIALIZE 
AVAI LA8LE CREW HOUR 
FOR A CONTINUOUS 
OCCUPANCY 

I 

--60. 03* — >I 

3492 I 



I 



AVAIL = 



I 
I 
I 

*« DETERMINE FIRST 



AVA 


LABLE 


OCCUPANCY 


HOUR 


I 








I 

I NOTE 


* 


ft 


ft ft ft 


ft ft ft ft ft 


ft 




BEGIN 


DO LOOP 


ft 


3500 I 


= IMl, 24 


ft 


* 


ft ft ft 


ft ft ft ft ft 
I 
>I 
1 









JHOURd ) 
ft I 



CON 
DAY 



END OF DO 
LOOP? 



lYES 
I 
I 
I 
I 
I 
I 
ALLOW SEARCH TO 
TINUE INTO NEXT 

I 



I NOTE 13 
*****ftftftftft* 
* BEGIN DO LOOP * 
ft 3504 I = 1, 24 ft 



JHOURIII .EQ. 
ft 1 * 



IFALSE 


. 67 . 




. 01 . 




• •■ ■ 




3501 



->* 

T 



3504 



I ft ft 

I * * 

I NO ft 

+ ft EMD OF D3 

ft LOOP? 



lYES 

I 

I 

I 

I 

I 

I 



I NQTIMEdCI 



16 

■ -* 
I 



292 



CHART TITLF - SUBROUTINE MAINT 



*« ACCUMULATt IN 
AVAIL THE TOTAL HOURS 
OF CONTINUOUS 
OCCUPANCir 

66. 11* — >* 

3i3Ul I NJTF 01 

4 CONTINUE * 

I 
I 

*« IMi IS ASSIGNED 
TO 1ST AVAILABLE WORK 
HOUR 

I 

I 

I 02 



I 



IM2 



1 



I 



I NOTE 


03 


**«*«**** 


« « 


» rtE&IN DU LOOP 


» 


« 350^ J = 1, 2'. 


* 


1 


* * 






^o^TEST FUK AN 




AVAILAdLL HUUR 
I 




I 

* O'i 





JHOUR(J) .bj. 



I 
1 

I 
I 

»»*ACCUHULATe THE 
NUMBER OF CONTIiMUOUS 
AVAILABLE HOURS 
I 
I 
35J2 I 05 
* # 

I AVAIL = AVAIL t 1 I 



END OF L 
LOOP? 







lYES 




*■) 


ALLOW 


THE 




ACCUMULATED HOURS 


OF 


OCCUPANCY 


TO CONTINUE 


I.mTO The NEXT 








1 NOTE 


07 


* 


* * * * 


V * « ^ 


* * 


* 


BEGIN 


DO LOOP 


* 


« 


3503 J 


= 1, Z', 


* 


* 


* « * » 


* 4 * -* 
I 

1 


« * 



-67.U7* — >t 



JHtlUF(J) -EU. *- 
* * 



<•* THE NURK PERIOD 
MAY NOT EXCEED 2'. 
HOURS FOR A GIVEN 
LOOP 

I 

I 

I 

« 09 



* T^Ut 

AVAIL + 1 » > 

• GT. 2'. « 



I AVAIL = AVAIL ♦ 1 I 



< » EfjQ UF 00 

« LOOP? 



ASSI 
PEf L 
UNAV 



I YES 

I 

I 

I 

I 

I 

I 
THE VALUE OF J 
GNED TO IMl 
ECTS THE 1ST 
AILABLE HOUR U 

1 

O'i* — >I< 

505 I 12 



IMl = J 



I 



«MAKE THE 
TINUOUS AVAILABLE 
UPANCY TIME EQUAL 



CON 
OCC 
TO 
» 
BET 
•CR 



»THE SMALLER VALUE 
^EEN NET CREW TIME 
EWT' OR 'AVAIL' 

I 

I 



CREWT .Lt. 
« AVAIL 



ITRUE 

I 

I 

I 

I 

I 

I 



AVAIL = CRtHT 



I< 

I 

**»ADJUST AVAIL FOR 
THE FIXED HOURS 
REQUIRED ON THE 
ROADWAY 

I 

I 

I 16 
« # 

I AVAIL = AVAIL - I 
I FIXHRS I 



I 

I 
** ESTABLISH THE 
LOCATION OF THE FIRST 
WORKSITE IN THE 
TRAFFIC ZONE 



I 


DISTl = 


I 


1 


DENSEW«RLOC( IWI 


I 


44 


I 

1 
♦INITIALIZE THE 




SPACING FACTOR 'SF' 




FOP 


UNIFORM SPACING 

I 
I 
I 


18 








I 


SF = DlSTl 


I 








44 


I 

1 

DETERMINE THE 




AMOUNT OF TIME 




REQUIRED TO DO WORK 




AT 


FIRST SITE 

I 






I 
1 


19 


I INDEX = 1 I 





/ 3120 / 




* 4 
4 4 


I 
. 16 >I 

I N3TE 

CONTINUE 

I 


20 

* 
4 
» 


I 
*« SUBTRACT WORKTIME 
FROM AVAILABLE WORK 
TIME 

I 




I 
I 


21 


1 


AVAIL = AVAIL - 
TIME 


I 
I 


1 

I 

I 
«» ACCUMULATE THE 
PRODUCTIVE WORK TIME 
ON THE ROAD 

1 




I 
I 


22 


I 


TTIME = TTIM6 * 
TIME 


I 

I 


I 
I 

r 

** HOLD THE LOCATION 
OF THE WORK SITE 
WHICH HAS JUST BEEN 
COMPLETED 

I 




I 
I 


23 


I DIST3 = DISTl I 



4* TES 
IF AVA! 
TIME IS 



I 
I 
I 

T TO D 
LASLE 
EXCEE 

I 

I 

I 



ETERMINE 

WORK 

OEO 



59 
17 



293 



Chart title - suBR0UTr\e maint 



»<■ INCREMENT THE 




WQRKLOAO 


ARRAr 




67.24*— 


>* 




3110 


I 


01 


I IW = 


IW t 1 


I 










I 
I 




I 
** IF THE SIMULATION 


I S COMPLETE TOTAL 




CREx HRS. 


AND HOLD 




OCCUPANCY 


H 
I 
1 
I 
» 02 




* 


* 




f 


* 




* 


* 


TRUE 


* IW .GT. ISIM 


*-+ 


* 


* 




* 


* 




* 


« 






* 


• •• . 




IFALSE . 
I 

I 
I 


69 . 
17 . 

3200 



I 

I 

«* DETERMINE THE 
LOCATION OF THE NEXT 
WORKSITE ON THE ROAD 
I 

I 
«**GOTO APPROPRIATE 
SPACING FACTOR 
I 
I 
I 03 



I CCMPUTEU 00 TO I 
I FOR N I 


I 3101 
1 3102 


68.04 I 

68.05 I 


I 
I 
IF OUTSIDE 

1 


THE RANGE 


I 
***RANDCM 
LOCATION 


SPACING 


68.03 >I 

3101 1 

ft 


04 

Ol 



I , D1$T2 = I 
I OeNSEW»RLOC(IW) I 
I 'SFACT I 



♦♦♦UNIFORM SPACINGi 
iJASEO ON JOINT 
SPACING OR SPECIFIED 
SPACING FACTO 

♦♦«SF IS ACCUMULATED 
DISTANCE FOR UNIFORM 
SPACING IN MILES 

68.03 >* 

3102 I 05 

« « 

I SF = SF 4. I 
I 0VER(2, IA)/5230 I 
ft ft 

I 
I 

I 
♦♦♦UNIFORM SPACING 
LOCATION 



I 

>I 

3103 I NOTE 07 
*ftftfti::ftft;;t*^* 
* CONTINUE * 

I 
I 
I 

»« DETERMINE IF THE 
NEXT WORK SITE IS 
WITHIN THE ALLOWED 
TRAFFIC ZONE 

♦♦♦AND IF IT IS THEN 
DETERMINE THE TIME 
REJUIRED TO DO WORK 



I 



« ( DIST2 - • TRUE 

» DlSTl) .LT. « 

"0VER(9,IAJ * 



IFALSt 

I 

I 

1 

I 

I 

I 
♦* COMPUTE THE TIME 
REQUIRED TO MOVE AND 
INSTALL NEW TRAFFIC 
CONTROL 

I 

I 

I 10 
ft ft 

I TEMPI = {DIST2 - i 
I DISTD/TCMOVE <■ I 
I DVER(a,IA) I 



I 

«*ftIF THE TRAVEL 
TIME TO THE NEXT SITE 
EXCEED 2 HRS. GET OFF 
ROAD 

I 

I 



♦♦♦THIS ROUTINE 
DETERMINES PRODUCTION 
TIME AT WORKSITES 



— 67.19^ — >« 

3100 I NOTE 12 

ftftftftftftftftftftft 

» CONTINUE ♦ 

ftftftftftftftftftftft 

I 

I 

I 
♦♦♦BRANCH ro THE 
APPROPRIATE WORKSITE 
TYPE 



I 


COMPUTED 


GO TO I 


I 


FOR *■ 


I 








I 


3104 


68.14 1 


I 


3105 


69.10 I 


I 


3106 


69.11 I 



I 
I 

I 

IF OUTSIDE THE RANGE 
I 

68.13 >l 

3104 I 14 

I TEMP2 = I 
I PATCHF(IW) I 



♦TEMPI .GT. ♦ T 
♦ lOVERISf I A) ♦ *- 
ft 21 * 



I . 06 

I 

I 3U 

I 

I 

*♦ DETERMINE TIME 
REQUIRED TO 00 WORK 
AT FIRST SITE IN NEW 
T/C ZONE 

I 

I 

I 16 
ft ft 

I INDEX = 2 I 



/ 3121 / 




I 
69.16 >I 




1 


17 






I TIME = TIME + 


I 


I TEMPI 


I 


I 
I 
1 
♦ ♦♦DETERMINE IF 




REMAINING AVAILABLE 


TIME WILL BE EXCEEDED 
I 


I 

♦ 18 




♦ ♦ 




♦ * 




♦ (AVAIL - * 


TRUE 


♦ TIME) .LT. 0. 


«-* 


ft ft 


I 


♦ ♦ 


I 


ft * 


I 


ft 


. ... 


IFALSE . 


69 . 


I 


05 . 


1 


. ... 


I 
I 


3123 


1 
♦♦♦ACCUMULATE 




TRAFFIC CuNTROL ZONE 


DISTANCE 

1 




I 

I 


19 






1 ZL = ZL * 


1 


I (0IST3 - DISTl) 


I 



I 

♦♦♦ACCUMULATE THE 
NUMBER OF TRAFFIC 
CONTROL ZONES 

I 

I 

I 



I 

I 

I 
♦♦♦INITIALIZE FIRST 
WORKSITE IN TRAFFIC 
CONTROL ZONE 

I 

I 21 

ft ft 

I OISTl = DIST2 I 

ft ft 

I 
I 
I 



294 



CHART TITLE - SUBROUTINE MAIMT 



•♦SCjMfUTE THE TIME 
KbUU|i<tD TO WALK TU 
NEXT W(>RHS|IE 



69.16 >• 

3122 1 


01 


I TIM61 = (UIST2 
I UIST3)/WALK 


- 1 

I 


I 

I 

I 
**»IF TrIE TIME 
REJUIREO TO WALK TO 
THE NEXT SITE EXCEEDS 
o MlNUTESt 

1 

I 



/ 3105 


/ 


10 




68.13— >I 
I 




I TEMP2 ^ 
1 PATCHPIIW) 




I 
1 




I 














I 

I 
I 



68.13 >I 

I 



T6MP2 = LF 






FALSE « 
* TlMEl .GT. 



I TRUE 

I 

I 

I 

I 

I 

I 



I TIM61 = I 

I TIMEl*WALK/TCMQVE I 









I 
->I 


• •♦COME 


UTE TOTAL 


TIME 


TO 


00 NEXT WORK 


SITE 




1 
I 
1 04 








1 
I 


TIME 


= TIME ♦ 1 
TIMEl I 



I 
I 

••♦COMPUTE 
PRODUCTION TIME AT A 
WORKSITE 

I 

— ea-i-v*— >i 
I 

3107 * 12 



TRUE * • 

* PS( JA, ITYPE, 

• 3) .NE. * 



I 
I 
I 

••♦DETERMINE IF 
REMACNr-iG AVAILABLE 
TIME WILL ttb EXCEfcOED 

I 

i 

I 

• 05 



* I AVAIL - 

TIME) .Gt. 
« 0.0 



I 

I 
I 

I 
I 

••♦RESET IW TO 
REFLECT THAT NEXT 
SITE •IAS NUT DONE 
I 
6!J.15^~>I 

3123 I 06 



I 



IW = IW 



I 



• • ADJUST THE 
AVAILABLE TIME TO 
REFLECT PERFORMANCE 
OF WORK 






3111 I 






07 


I 


AVAIL = AVAIL - 
TIME 




I 

I 
♦• ADO TO 
ACCUMULATED 
PRUUUCTION TIME 

I 






1 

I 


08 


I 
* — 


TTIME = TTIME + 
TIME 

I 


1 
I 

-♦ 


I 

♦• RESET THE LAST 
SITE WHERE WORK WAS 
COMPLETE 






I 
I 


09 


1 


0IST3 = 0IST2 


I 




I 
I 
I 






... 






.68.01. 





IFALSE 

I 

I 

I 

I 

I 

I 





/ WRITE TO 


DEV 


/ 




/ MO 




/ 




/ VIA FORMAT 


/ 






/ 3108 


/ 




/ 


FROM THE LIST 


/ 





I 
I 

I N3TE 1* 

• ••*♦♦*♦♦*♦ 

• LIST = lA • 

• **♦•♦•«*•* 



>I 

3109 I 15 

* 1 

I TIME = I 

I r TEMP2»SIHI IA,2I I 
I + I 

I SIM( IA,3) l/PS( lA, I 
I ITYPE, 31 I 

* « 



I 

♦♦♦RETURN TO 
APPROPRIATE PLACE 
SIMULATION 

I 

I 

I 



I 



COMPUTED GO TO I 
FOR INDEX I 



I 3120 
I 3121 
1 3122 



67.20 I 
68.17 I 
69.01 I 



I 
I 
I 

IF OUTSIDE THE RANGE 
I 
67.2*^ — >I 

3200 I NOTE n 

♦ CONTINUE * 

• ♦♦♦♦♦♦♦♦♦« 

I 

I 

I 
♦♦♦ACCUMULATE 
TRAFFIC CONTROL ZONE 
DISTANCE 

I 

I 

I IE 



I ZL = ZL + 

I ( DIST3 - DISTl) 
I OVERdl.lA) 



295 



CHART TITLE - SUBROUTINE MAINT 



69. 18 >* 

I 

***ACCU»AULATE THE 
NUMBER OF TRAFFIC 
C0NTR3L ZONES 

1 
I 
I 


■•■- 
01 I 


E» 
FALS 

I *- 
I *- 


NO 
CEEO 

* 
E » 
* J 

* 
* 


— >« 

I 
HOUR MAY 
2t 

I 
I 

* 09 

* # 

* 
.GT. 2', 

* 
ITRUE 

I 
I 
I 
I 
I 




I NZ = NZ + 1 


I 1 




I 

1 

I 
** TOTAL THE CREW 
HOURS UN THE ROAD 

I 

1 

I 

« 

I STIME = TTIMb *■ 
I FIXHRS 


0? 1 
-* 1 

I I 
1 I 


10 




< 1 

03 I 


I 


J 


= J 


- 24 


1 


•* ACCUMULATE THE 
CREW HOURS FOR EAC^ 
ROADWAY OCCUPANCY 




1 






I 
I 

*- 




1 


11 


I 
I 

4: 

I CREWH(IC) = 
1 CREWH(IC) t 
I STIME + TT 
« ._. 


HR S 1 I A > J 
HRS( lA, J, 


ICI = 
IC) + I 


I 


3201 


I 

I 
* 


12 





** 


1 

I 

I 

DETERMINE LAST 




HOUR 


OF ROAD 




OCCUPANCY 

I 






I 
I 


04 


I Ml 


= IM2 * STIME 


I 


** 


1 

I 
DETERMINE THE 




ACTUAL TIME SPENT IN 


LAST 


OCCUPANCY HOUR 

I 




1 
I 


OS 








I 


RTIME = IM2 * 


I 


I 


STIME - Ml 


I 








** 


I 

I 

DETERMINE LAST 




EVEN 


FULL OCCUPANCY 


HOUR 


1 






I 


06 


t 


Ml = Ml - 1 


-« 



I 
I 
1 

«* ASSIGN EACH HOUR 
UF ROADWAY OCCUPANCY 
TO AN ARRAY FOR EACH 
HOUR OF 

I 

I NOTE 07 

* BEGIN DO LOOP • 
« 3201 K = IM2. Ml * 

I 

I< 

I 08 



END OF 00 
LOOP? 





lYES 
















** 


GET THE LAST 


HOUR 


OF 


OCCUPANCY 


13 








I 


J = J <• 1 


I 


*-- 







♦» NO HOUR MAY 
EXCEED 24 



ITRUE 

1 

I 

I 

I 

I 15 

^ ^ 

I J = J - 24 I 

« « 

I 

I< 

»* ASSIGN THE 
REMAINING OCCUPANCY 
TIME TO LAST 
OCCUPANCY HOUR 

I 

I 



I HRS(IA,J,IC) = I 
I HR SUA, J, ICI + I 
I RTIME I 



I 
I 

*« INITIALIZE 
OCCUPANCY VARIABLES 

I 

I 

I 18 



** END OF ROAO 
CLOSURE SIMULATION 



•'♦DETERMINE THE 
AVERAGE TRAFFIC ZONE 
LENGTH FOR LANES 
CLOSED AND ACT 



66.02 >* 






3030 I 


19 


I 


ZONELI lA.IC) = 


I 


I 


ZL/NZ 


1 


I 

I 

I 

**»FACTOR CREW AND 




OCCUPANCY HOURS FOR 




MULTIPLE LANE 




CLOSURES 

I 






1 
I 


20 








I 


CREWHdCI = 


I 


I 


CREWHIICI/LF 


I 










I NOTE 


21 


* 


««***#*** 


* 


* 


BEGIN DO LOOP 


« 


« 


3029 IH = 1, 24 


* 


« 


I 


* 




I 


22 








I , 


HRSI lA.IH.ICI = 


I 


I I 


HRSI lA, IH,ICt/LF 


' 




I 
I 
1 
3029 « 2 3 






* * 






* « 




I NO « * 






♦ END OF 03 » 






* LOOP? « 





1 
I 

I 
I 

♦♦♦END OF LANE 
CLOSURE LOOP 
1 
66.16 >I 

3031 * 24 



END OF 00 »-t 

LOOP? ♦ I 



64 
24 



* * » » • 



***** 



NOTE 25 
***** 



***** 



I 



Til ME = 



I 



296 



CHART TITLE - SUBROUTINE MAINT 



70.25 >» 

I 

**«ASSIoN JISTANCE 
BtTwtEN DtTOUR EXIST 
POINTS TO FREElVAY 

*»*INELUE«4CE ZONE 
FOR ALL LANES CLUSEU 
I 
I 
1 
* 01 



OVER (12, lA) 
.EU. • 



I ZONEL( lA, LANES) = I 
I UETOURll) 1 
# ^ 

I 
>I 

I 
«4 DETER'IINE THE 
TOTAL MAINTENANCE 
COST FOR ACTIVITY AND 
EACil CLOSURE 

I 

I 

I 
•» RATIO THE ANNUAL 
LANE MILE PROJECT 
WORKLUAO TJ THE 
SIMULATION WORK 

I 

I 03 

« » 

I W = I 

I HWURK(IA) I 
I 'PKOJLN/SWGRKI lA) I 



»*»L)ETEP MI NE CM. THE 
MATERIAL COSTS FOR 
THE OCCUPANCY 
WORKLJAO 

1 


I 
I 


04 


I CM = I 
I HhORMIAI 1 
1 »PRajLN«LANES«PS 1 
I (1A,ITYPE,2) I 


1 

1 

I 
»**INI TI ALUE THE 
WORKLOAD TO ZERO NOW 
THAT WORK HAS BEEN 
COMPLETED 

1 


I 
* * 


05 


* 


« 


* 

* lu .Eg. 


» FALSE 
2 f 



I 06 

^ 4 

I HWORK(IA) = I 

t » 

I 
>l 

I 

*» GO TU THE 
APPROPRIATE 
EXPRESSWAY TYPE 
ROUTINE 

I 

I 

I 07 
It « 

1 COMPUTED GO TO I 

I FOR KP I 



I 3040 
I iOSl 
I 3060 



71.08 I 
71.13 I 
71.13 I 



I 

IF OUTSIDE THE RANGE 

I 

I 

I 
»» COMPUTE COST FOR 
THREE-FOUK LANE 
DIVIDED MAINTENANCE 
CLOSURES FOR 

I 

71.07 >l 

3040 I 08 



1 COSTSI lA, 


1,1 


ID) 




I (CREWH(2) 
1 * 


*2*W*CUI 
CM 




1 COSTSI lA, 


2,1 


ID) 




1 ICREWHII) 
I + 


«rt»2*CU) 
CM 




I 
I 
I 09 


I COSTSdA, 


3,1 


ID) 


1 


1 COSTSI lA, 


1,1 


ID) 


I 



NOTIMEIl) 

.EQ. 1 



I COSTSI lA, 3, 1, ID) I 

I = 1000000000 I 



I 

I< — 

I 12 



** COMPUTE COST FOR 
FOUR-SIX LANE DIV lOfD 
MAINTENANCE CLOSURES 
FOR YE 

71.07 >« 

3051 1 13 
« « 

1 COSTS! I A, 1,1, 10) 

I 

I (CREWH(3)«3*M»CU) 

1 ♦ CM 

I 

I COSTSI IA,2,1,I0) 

I I (CREWH(2I»2*W ♦ 
I CREWHII1*W)»CU) ♦ 
I CM 

« 

I 
I 

I 1 
* 

I COSTSI IA,3, I, ID) 
I 

I (CREWHI 1)*W*3»CU) 
I, * CM 

I C0STSIIA,4, 1,10) 

I 

I COSTSI IA,1, 1, ID) 



N0TIMEI2) 
.EO. 1 



I C0STSIIA,4, 1,ID) I 
I = 1000000000 I 



I 
->I 

I 17 



*» COMPUTE COST FDR 
FIVE-EIGHT LANE 
DIVIDED MAINTENANCE 
CLOSURES FOR 

71,07 >» 

3060 I 18 

* « 

COSTSI lA, 1, 1, ID) 

ICREWHI41»4«W»CU) 

♦ CM 

COSTSI IA,2, 1, 10) 

I (CREMH|3t*3*W * 

CREWHI1)*W)«CU) «■ 

CM 

* « 

I 
I 
I 19 



COSTSI 1A,3, 1, ID) 



ICREWHI2) 

*2»W*2*CU) ♦ CM 



COSTSdA, 4, 1, ID) 



ICREWHI 11«H»4»CUI 
♦ CM 



I 

1 

I 20 


I C0STSIIA,5,1,I0) 

I 

I COSTSdA, 1,1, ID) 


I 
I 
I 



NOTIMEI 2) 
.EQ. 1 



I COSTSdA, 5, 1. ID) I 

I = 1000000000 r 
« * 

I 

— 71.12»~>I 

3070 I NOTE 23 

* CONTINUE ♦ 

I 
I 

I NOTE 24 

* BEGIN DO LOOP * 
» 3072 IC = 1, * 

* LANES * 

I 
I 
I 
I / 



/72.01 



297 



CHART TITLE - SUBROUTINE MAINT 



I 



tRUE » 

* NUTIMEdCI 

♦ .EQ. 



IC 



I J = LANES 

I 1 

I 

I COSTS! lA.J, 1, 10) 

I = lOOOOOOOOO 



END OF 00 
LilOP? 



lYES 

I 

I 

1 

I 

I 

I 



FALSE • * 

* NOTIMEILANES) « 

« .Ea. 1 ♦ 



I COSTS! lA, LANES ♦ 
I 1.1)10)= 

I lOOOOOOOOO 



«« C 
SIMUL 
HOURS 
OCCUR 
** F 
CLOSU 



I 
>I 

I 

ONVERT THE 

AT ION OCCUPANCY 

TO WORKLOAR 
ANCY HOURS 
OR EACH LANE 
RE FOR THE YEAR 

I 

I 

1 NOTE 06 



* * * * 



« « « 



* * 



» BEGIN 00 LOOP » 
» 3080 IH = 1, 2* • 

I 

I< 

I NOTE 07 



EG IN on LOOP 

081 IC = 1, 

LANES 



I 
I 



* » » • 



-72.07* — >» 

I 08 

« « 

I HRS(IAiIHtlC) - I 
I HRSdA, IH.IC) I 

I »W»IC I 

« .-» 

I 
I 
I 
3081 • 09 

* * 
» * 

NO * » 

— • END OF 00 • 

» LOOP? » 



YES 



3030 * 10 



NO ♦ 

♦ * END OF 00 

• LOOP? 



ires 






6*.02*— > 
iOlO 



* END OF 00 *-♦ 

♦ LOOP? • 1 

* * I 



YES . 5* 

. 02 



298 



CHASr T[TLE - SUaRllJTINE MOTOk 



*»»ACCIDENT 
EQU4TI0;\lS INTE0C6PTS 
ANO C JEFF [C lENTS 



I 01 

« 1, 

I SCZUNt = l.J I 
1 PWT = WEIGHTI 1,1) 1 
! IKUtX = 1 



I 
1 

.IJTJREST 
El , JETtKMI NATI UN 
THE ilOTUREST 
ACT PEKIOD 

I 

I 

I 
*DETEPMINt THE 
LICABLE LlAYS FUi^ 
H LAiME CLQSUKE 
ATIOr^ bV 
'ACTIVITY dV 
SURE TYPE 

I 

I 

I rNUTE 02 

SfcGlN DC LOOP 4 

5000 lA = 1, 7 <■ 

********* 
I 

. 1.; — >i 
1 

* 03 



LEV 

UF 

I>IP 



APP 
EAC 
OUR 



OVER (b,I Al 



* .EO. 


* 


1 


* * 




1 


* * 




I 


* 




. . . . 


IFALS 
1 

I 
I 
I 


b . 


as . 

12 . 

5000 


I 
«»*INIT1AL1ZE 


THE 




FACTOR FOR SIGNALS 


0^4 


OtTUUR 

I 
I 
I 




O'. 


* 





--* 


I CYCLE = 




I 


1 

I 
I 
»»*IiMlTlALIZE 


THE 




OtTOJR TRAFFIC 


VOLUME 


FACTOR 

I 






1 




05 


I OFACT = 1 




I 








I 
1 

1 NOTE 


06 


«*«#«v«* 


* 


* * 


« 6EGIAI DO LOOP 


« 


* 51JJ IC = 1 


, 


» 


♦ LANES 




* 


*«»**«** 


<■ 


* * 


86.21 >I 






«»*INITI ALIZE 






ACCIDENTS 

I 
I 







I ACDTSI IC) = I 



I 
I 
***Ifa TIAL IZE POLUTE 
I 
I 
I 09 

I pnLUTE( IC) = I 

I 
I 
I 

»**INI TIALIZE THE 
CROSS OVER FACTOR 
•CROSS- 

I 

I 

I 10 

I caossiiC) = I 



I 
I 

♦♦•ACCUMULATE THE 
TOTAL HOURS OF 
ROAOHAY OCCUPANCY FOR 
EACH LAiME CLOS 

I 

I 

I t'^OTE 11 
*********** 
« 8EGIN DO LOOP * 
» 5J80 IH = I, 2<. * 



1 



I CROSS! ICl = I 

I CROSS(IC) + I 

I HRS(1A,IH,IC) I 



END OF DO 
LOOP? 



I YES 

I 

I 

I 

I 

I 

I 
*t*lNl T lAL IZE THE 
CAPACITY TO "CAP' 
PLUS SHOULDERS IF 
AVAILABLE 

I 

I 

I 



I't 



I CAPACT = 1 

I CAP(IC) + i 

I CAP(LANES) 1 

I »0VER(12,IA) I 



r 

I 
I 

««*IF ALL LANES ARE 
CLOSED A DETOUR 
SITUTAION CAN EXIST 




* 0VER(12,IA) »- 
* .GT. * 



I 
I 
I 
I 

♦♦♦COMPUTE THE 
DETOUR V0LU1E FACTOR 

I 

I 

I 18 

tf * 

I DFACT = I 
1 (VOLUMEd) + I 
I DETOUR!*)) I 
I /VOLUME! 1) I 



I 



I 

♦♦♦ESTABLISH AVERAGE 
DETOUR STOPS 

I 

I 

I 19 
* » 

I CYCLE = DET0URI6) I 



I 
I 

♦♦♦CAPACITY OF 
DETOUR 

I 
I 
I 



CAPACT = 
DET0URI5) 



♦♦♦DETERMINE 
CAPACITY OF SHOULDERS 
FOR ALL LANES CLOSED 

>♦ 

5090 I 21 
* « 

I CAPACT = I 
I CAPILANES) I 
I *0VERI12,IA) I 

* « 

I 
I 
I 

♦♦♦INITIAL IZE 
STARTING HOUR 

I 
-75.16«-->I 

5201 I 22 



IBEGIN = 1 



I 



I 

r6.ii^— >i 

5001 I NOTE 23 

♦ ♦**♦****♦♦ 

♦ CONTINUE * 

♦ ♦*♦♦♦♦♦*♦« 
I 

I 

♦♦♦DETERMINE THE 
FIRST HOUR OF TRAFFIC 
IMPACT 

I 

I 

I NOTE 2* 
*♦♦♦♦*«♦♦•* 

♦ BEGIN DO LOOP * 

♦ 5500 IH = IBEGIN, « 

♦ 2* * 
**♦**♦*♦♦♦« 



♦ 






♦ 


TRUE 


HRSIIA 


IH 


ICl 


♦ - + 


* 


.NE 

♦ 
♦ 


. 

♦ 
fe 


♦ 


I 
I 
1 






FALSE . 


75 . 










01 . 



END OF DO 
LOOP? 



I YES 
I 
I 
I 
I 
1 
t 
♦♦♦GET ANOTHER 
CLOSURE 

I 



299 



CHART TITLE - SUSftOUTINE MOTUR 



7b. 0', >I 

I 



»*«SET INITIAL 
IMPACT HOUR 



75.25 >* 

5501 I 



I lOEGIN = 


IH I 


I 
I 

I 
***QETERMINE 
DURATION 

I 


IMPACT 


I 

I , NOTE 02 

* 3EGIN 00 L03P * 
» 5510 IH = IBEGIN, * 
» 23 » 
«*»»*»»»»«♦ 


76.09 >I 

I 


03 


I TEMPI 
I HRSdA.IH 


,IC) I 


I TEMP2 
I HRS ( 1 A, IH + 


li ICI I 



I 
I 

I 

***DeTERMINE IF 
THERE IS CHANGE IN 
OCCUPANCY UURATIO.M 

I 

I 

I 

* 0* 



TEMPI .EO. 
> TEMP2 



TRUE 



FALSE . 76 
. 09 



***SET THE UAYS OF 
IMPACT EQUAL TO THE 
OIFFERENCE IN 
OCCUPANCY OURATI 

I 

I 

I 05 



* 




« NO 


* 


END OF DO 


#-+ 


* 


LOOP? 

* * 

* * 

* 


1 
I 




lYES 


. 76 . 
. 03 . 








«««SET THE BAYS 


OF 


IMPACT 


FOR FINAL 
I 
I 

I 


HOUR 
10 



I DAYS = TEMP2 





* 


TRUE 


EQ 




* 


I 
I 




* 




I 




FALSE . 


75 


. 






23 


. 



I DAYS = TEMPI - 
1 TEMP2 


I 

I 


I 
1 
I 
*»»OCCUPANCy 

DURATION MUST 

POSITIVE 

I 


BE 




I 

* 

* * 

« DAYS .LT 


06 

* 



FALSE 



I 07 

# t! 

I DAYS = TEMPI I 



>1 

I 
***SET THE LAST HOUR 
OF OCCUPANCY 
I 



-♦ * 

I lENO = IH 



**»SET THE END OF 
OCCUPANCY AT FINAL 
HOUR 

I 

I 

I 



I END = 24 



I 



I 
««*INITIALIZE THE 
QUEUE AND THE FIRST 
DELAY TIME TO ZERO 

I 
>I 

5511 I 13 

« * 

I QUEUE = I 
I I 

I TIMEl = I 
» 1 

I 

I 

I 
♦♦♦DETERMINE THE 
CLOSURE CATEGORY 
SUBSCRIPT 

I 

I 



I 
I 
I 

♦♦♦WHEN ALL LANES 
ARE CLOSED AND 
SHOULDERS ARE 
AVAILABLE 

«»«USE THE SPEED 
CURVE DETERMINED FOR 
ONE LANE OPEN TO 
MOTOREST 

I 

1 



FALSE ♦ !C .EQ. ♦ 

* LANES .AND. 

♦OVERI 12, lA)* 
♦.GT. * 



I TRUE 
I 
I 
I 

I 

I IT 

« 1 

1 J = LANES - 1 I 

I 

>I 

I 18 
# # 

I FACTl = 1 I 

t * 

I 
I 

I 

♦♦♦DETERMINE THE 
VOLUME, DELAY AND 
SPEED FOR EACH HOUR 
OF IMPACT 

I 

I N3TE 19 

♦ BEGIN DO LOOP * 

♦ 5520 IH = IBEGIN, * 
« lEND * 
*********** 

I 

77.12 >I 

i 

♦♦♦DECREASE THE 
OCCUPANCY AR^AY BY 
THE DAYS USED DURING 
THE IMPACT PE 

1 

I 

1 zo 

« f 

I HRS( IA,IH, IC) = I 
I HRS( lA.IH.IC ) - I 
I DAYS I 

« « 

I 
I 
I 

♦♦♦MODIFY THE 
CAPACITY FOR 
COMMERCIAL TRAFFIC 
VOLUME 

I 

77.20 >I 

5521 I 21 

# « 

I FCAP = 11- I 

I PCTADTI IH,6,ID, 1) I 
I I^CAPACT I 



I 
I 

♦♦♦DETERMINE THE 
VOLUME WHICH MUST BE 
HANDLED DURING THE 
HOUR 

I 

I 

I 22 

« :)[ 

I AVOLI IHI = I 
I HVOLI IHI+OFACT + 1 
! QUEUE I 



I 

I 
♦♦♦ESTABLISH THE 
VOLUME WHICH WILL BE 
HANDLED DUR ING THE ■• 
HOUR 

I 

I 

I 

I / 



/77.01 



300 



CHAkT title - SUSKOUTIiNE MTTOR 



1 



AVOLdH) .GT. 
« FC4P * 



ITf(U6 

I 

I 

I 

I 

I 02 

4 4 

I AVOL(IH) = hC«P I 

iX if 

1 
>1 

I 

*«»Hi3LD ANY EXCESS 
VOLUME IN A QUEUE 
I 
I 
I 03 



1 QUEUE = I 

I HVOL( 1H)»0FACT - I 
I FCAP t OUEUE 1 



»»*THE 
BE LESS 


1 

I 

1 
aUEUE CANNOT 
THAN ZfRO 

I 




1 

» 0". 


* « 
FALSE * * 
« OUEUE .LT. * 





I 
1 
I 

1 

I 




05 


« 







— * 


I 


OUEUE = 





I 




I 
>I 






♦♦♦DETERMINE 


THE 




DELAY 


TO THE 


LAST 




VEHICLE WHICH 


HILL 




PASS 


DURING THE 

I 




tt 


I 
I 




Ob 



I TIME2 = 1 
I QUEUE/ (HVOLI [HI 1 
I *OFACT) I 



1 

I 
1 

♦♦♦ESTABLISH 


AN 




AVERAGE DELAY 


FOR 


ALL 


VEHICLES WHICH 


WILL 


PASS IN THE 

I 
I 

I 




07 








I OELAY(IH) 


= 




I ITIMEl ♦ 






1 TIMES) /^♦FACTl. 




I 

I 



>* 

I 

♦♦♦RESET THE DELAY 
TO BE ASSOC lATEU KITH 
FIRST VEHICLE IN HOUR 

I 

I 

I oa 



I 



TIMFl = TIME2 



I 



1 

♦♦♦COMPUTE 
VOLUME-CAPACITY RATIO 
I 
1 
I 09 

it « 

I VC = I 

I AVOL ( IHI/FCAP 1 



I 
I 

♦♦♦DETERMINE SPEED 
MATRIC SUBSCRIPT 

I 

I 

I 10 
* <. 

I I = ( VC + I 
1 .lb)*lO. I 
t # 

I 
I 
I 

♦♦♦DETERMINE THE 
SPEED OF VEHICLES 
PASSING THROUGH THE 
TRAFFIC CONTRO 

I 

I 

I 11 

t * 

I SPEEU(IH) = I 

I SP( J, I ) I 



♦ END OF DO ♦-+ 

♦ LOOP? ♦ I 

♦ « I 

♦ ♦ I 



YES . 76 

. 20 



♦ ♦TRUE 

QUEUE .EQ. *-* 



FALSE . 77 . 
. 21 . 



>♦ 




» 14 

♦ ♦ 
♦ ♦ 
♦ ♦ 
♦ IH .EQ. 24 


TRUE 

* 



♦ ♦♦INCREMENT THE 
HOURS BEYOND THE 
OCCUPANCY PERIOD TO 
ACCOMODATE ANY 

I 

I 1 



I 
I 

I 

♦♦♦RESET THE 
CAPAC ITY TO NORMAL 
I 



I CAPACT = 
I CAPILANES + 11 
4 

I 
I 
I 



♦ QUEUE <- « 
HVOLI IH) .LT. 

♦ CAPACT » 



I TRUE 

I 

I 

I 

I 

I 

I 



1 FACT! = 
I gUEUE/CAPACT 


I 
I 


I 








♦♦♦SET J EQUAL 
NORMAL SPEED CURVE 
1 




1 
1 


19 


1 J = LANES * 1 


I 


I 
1 
1 
♦♦♦INCREMENT THE 
IMPACT PERIOD 
I 




I 


20 


I lEND = lEND ♦ I 
ft — 


--♦ 



I 

--77.13^~>I 

I NOTE 21 
«««♦«*♦♦♦♦♦ 
* CONTINUE ♦ 

«*♦**•«««** 

I 
I 

I 

SUBROUTINE VOCOST 

I 

1 

1 
♦♦♦ACCUMULATE 
OPERATION COSTS FOR 
THE IMPACT PERIOD 

I 

I 

I 22 



I ZONE = 

I ZONELdA.IC) 

* 

I 

I 

I NOTE 

♦ *««««*««« 

♦ BEGIN 00 LOOP 

♦ 6000 IH = IBEGIN, 

♦ lENO 

I 

81.20 >l 

I 

♦♦♦INITIALIZE 
TEMPORARY VARIABLE 
TEMP3 TO ZERO AND 
POSITION INDEX TO 

I 

I 

I 



I 



I 



INDEX = 



I 
1 
I 

♦♦♦ROUND NORMAL 
SPEED TO INTEGER 
VALUE 



I I = SPEEONC IH) 
I .5 



I 
I 

♦♦♦DETERMINE 
POLUTION FACTOR F3R 
FREEWAY SPEED NORMAL 

I 

I 

I 25 
4 « 

P = SPEEDNIIH) 

PV = 
.89^(EXP( 1.193 - 

.032^P) *■ 

• II^IEXPI 0.957 - 

.026^P) )) 

t « 

I 
I 
I 

♦♦♦DETERMINE NORMAL 
PASSENGER CAR 
OPERATION COSTS FOR 
THE HOUR 

I 
I 
I 27 

« * 

TEMPI = 

OCOSTSU.U 

♦HVOLI IH)+(1 - 

PCTADTI IH,6, ID, 1) 

) 

I 
I 
I 
I / 



301 



CHART TITLE - SUSRUUTINE MOTOR 



77.27 >* 

I 

♦ '♦DETERMINE NORMAL 
COMMERCIAL VEHICLE 
COSTS FOR THE HOUR 

I 

I 

I QI 
« # 

TEMP2 = 

OCOSTSI I ,21 

*HVUL( IHI 

PCTADTI IN, 5, ID, 

n 



I 



*** 

OPER 

HOUR 



HOLD NORMAL 
ATION COST FOR 

I 
I 

I 

QUECSTdl = 
TEMPI + TEMP2 

I 

I 
I 



IF 

BE IN 



TEST TO DETERMINE 
ETQUR CLOSURE IS 
G PROCESSED 



* « TRUE 
* IC .NE. LANES *-t 

* * I 
« « I 



FALSE . 78 . 
. 12 . 



OVER (12, lA) 
» -NE. * 





IFALSE 


. 78 . 
. 12 . 

5002 


I 

***ROUNO DETOUR 
SPEED TO INTEGER 
VALUE 

I 






I 
1 


05 


111 = 

I 


SPEEOOI IN) 
.5 


♦ 1 


1 

I 

I 
♦♦♦DETERMINE 
POLUTION FACTO.-< FOR 
DETOUR NORMAL 

1 

I 



I 07 

P = SPEEDU(IH) 

PO = 
.89^(EXP( 1.193 - 

.032'P) t 

.ll'(EXP(0.957 - 

.026*P1) ) 

■.f « 

I . 

I 

I 

'♦DETERMINE NORMAL 
, SSENGER CAR 
'ITERATION COSTS IN 
DETOUR FOR THE H 
I 
I 
I 08 

* « 

TEMP3 = 

OCOSTSI 11,1) 

♦OVOLI IH)^( 1 - 

PCTAOTI IH,6, ID,1) 

) 

4 « 

I 
I 
1 

♦♦♦DETERMINE NORMAL 
COMMERCIAL VEHICLE 
COSTS IN DETOUR FOR 
THE HOUR 



1 



TFMP4 = 

OCOSTSI 11,2) 

♦OVOLI IH) 

»PCTADT( IH,6,I0, 

1) 

* if 

I 
I 

♦♦♦COMBINE VEHICLES 
AND DETERMINE THEIR 
COSTS THROUGH DETOUR 



[ TEMP3 = t TEMP3 t 
I T£MP't)^DETUUR(2) 
I /SPEEODUH) 



TEMPI = (TEMPI + 

TEMP2)^0ET0UR( I) 

/SPEEDN(IH) + 

TEMP3 

I 
I 
I 

TEMPI = (TEMPI ♦ 

TEMP2)^Z0NEL( lA, 

IC)/SPEEDN( IH) *■ 

TEMP3 

ZONE = DET0UR(2) 

I 
I 



♦♦♦COMBINE VEHICLES 
AND DETERMINE THEIR 
COSTS THROUGH TRAFFIC 
CONTROL 

78. 03^ — >♦ 

6002 I 12 

if. * 

I TEMPI = (TEMPI <■ I 
I TEMP2)^Z0NEL( lA, I 
I IC)/SPEEON( IH) 1 
if ft 

I 

I 

1 
♦ ♦♦ROUND SPEED 
THROUGH TRAFFIC 
CONTROL ZONE TO 
INTEGER VALUE 

I 
>1 

6003 I 13 
if if 

I J = SPEED! IH) t I 
I .5 I 

« « 

I 

I 
I 

♦♦♦DETERMINE 
POLUTION FACTOR FOR 
INFLUENCE ZONE 

I 

I 

I 14 



P = SPEED(IH) 

PR = 
.89^(EXP(1.193 - 

.032*P) + 

.ll'(EXP(0.957 - 

.026^P) ) ) 

« 1 

I 
I 
I 
♦ ♦♦HOURLY PASSENGER- 
CAR OPERATION COSTS 
THROUGH THE TRAFFIC 
CONTROL Z 

I 
I 
I 15 



I TEMP2 
I OCOSTSIJ 
I ♦AVOL(IH)^ 
I PCTADT(IH,6 
I ) 


,1) 
(1 - 

,ID. 


1) 




1 

I 









♦♦♦HOURLY COMMERCIAL 
VEHICLE OPERATION 
COSTS THROUGH THE 
TRAFFIC CONT 

I 

I 

I 16 
« « 

TEMP3 = 

OCOSTSIJ, 2) 

♦AVOLI IH) 

♦PCTA0T(IH,6, ID, 

1) 



I 

I 

♦ ♦♦COMBINE VEHICLES 
AND DETERMINE THEIR 
COSTS THROUGH TRAFFIC 
CONTROL 

I 

I 



>♦ 

I 18 

» 4 

I TEMP2 = ( TEMP2 * I 
I TEMP3) I 
I ♦ZONE/SPEED( IHI I 

* « 

I 
I 

♦♦♦DETERMINE SPEED 
CHANGE - DIFFERENCE 
BETWEEN NORMAL AND 
SPEED THROU 

I 

I 

! 19 



I 



1.5'(I - J) I 



I TRUE 

I 

I 

I 

I 

I 

I 23 

ft ft 

I K = I I 

ft ft 

1 
>I 

I 
♦♦♦SET THE SPEED 
CHANGE EQUAL TO 
INITIAL SPEED IF A 
QUEUE EXIST 



♦ 




♦ 


FALSE 


♦ DELAY(IH) 




ft-t 


♦ .NE 


. 


♦ 


{ 


♦ 


♦ 




I 


ft 


♦ 




I 




♦ 




• ... 




I TRUE 




79 . 
. 01 . 








.... 








25 


K 


= I 




I 




I 

I 

I / 






/7S 


.01 





302 



CHART TITLE - SUflKUUTlME MUTUR 



78.2',' — >* 
I 



I 
I 
I 

*»*FACTl IS THE 
TOTAL PASStNliER CARS 
DURING THE HOUR 

I 

I 

I 02 



I FACTl = 

I AVULI IH)« (1 - 

I PCTAOTI IH,6, lU. I) 

I )*1J00 



TUT 
VEH 
HQU 



tFACT2 
AL COM 
ICLES 
R 



I 



IS THE 
MERCIAL 
UURING THE 

I 
I 

I 



03 



FA 

AVD 

»PCTAOT 

U 



CT2 = I 

LIIH) I 

(iH,6,in, I 

«1000 I 



SPE 

80 



♦ FUEL 
ED CHA 



» * * * 



I 
I 
i 

CONSUMPTION 
NGE MODELS 

I 
>I 

I NOTE C 

riNut * 



I 

I 

I 05 

L_# 



10*-- 
6003 



S = .9 1 <■ 
.00134*1 



TE'^IPS = EXPIA 
B*AlOG(S ) ) 



RW = 
CWT**I .2/5.277 

* 

I 
I 



TEMP4 = TEMP3*R^ 

TEMP3 = 

TEMP3»FACTl»FUtL 

(II 

TEMP* = 

TEMP4«FACT2*FUEL 

(2) 

* « 

I 
I 
I 

***COMflINE PASSENGER 
CAR AND COMMERCIAL 
VEHICLE COSTS-FUEL 

I 

I 

I 07 



TEMP3 = TEMP3 
TEMP4 



I 



*»«TIRE WEAR SPEED 
CHANGE MODELS 
I 



->* 
I 



I RW = - .64 + I 


I .16*CWT 1 


I A = EXPI-4.85 t- I 


1 .046*11 I 


I B = EXP(-4.7 * I 


I .0417*1) I 


I TEMP4 = (-A * I 


1 B*ALOG(Sn I 



FALSE « * 
* TEMP4 .LT. 0. 



I TRUE 

I 

I 

I 

I 

I 

I u 

« 

TEMP4 = I 



I 

>l 

I 12 
» « 

TEMPS = RW*TEMP4 



RW = - ,64 + 
.16«PWT 

TEMP4 = 

TEMP4*FACTl* 

TIRESI 1)*RH 

V « 

I 
I 
I 13 

if « 

I TEMPS = I 

I TEMP5*FACT2* I 

I T1RES(2) I 



1 

I 

1 

**«COMaiNE PASSENGER 


CAR AND 


COMMERCIAL 




VEHICLE 


COSTS-TIRES 
I 
1 
I 


14 








I TEMP4 = TEMP4 t 


I 


1 


TEMPS 


I 








*«*OIL 


1 
I 
I 
CONSUMPTION 




SPEED CHANGE MODELS 
I 






I 
I 


15 



RW = EXP(-1.347 * 
.954*AL0G(CWTI I 



H - - 20.5 + 
.09*1 



TEMPS = EXPCA + 
B«ALQG(S)I 



>* 

I 15 

« » 



RW = EXP(-1.347 ♦ 
.9S4*AL0G(PWT) I 

TEMPS = 
TEMPS*FACTltOIL 
( 1)*RW 
« 



I IE 
I TEMP6* 
I 



MP6 = I 
FACT2«QIL I 
(2) I 



**»COMBI 
CAR AND C 
VEHICLE C 



I 
I 
I 

NE PASSENGER 

QMMERCIAL 

OSTS-OIL 

I 

I 

I 18 



= TEMPS <• 

rEMP6 



I 
I 
I 

TION 
CE COST 
NGE MODELS 

I 

I 

I 19 
if 1 



*»*OP£RA 
MAINTENAN 
SPEED CHA 



A = 
.00 



.298 *• 
60S*!' 



= .3642 
.00173*1 



C = .00506 - 
.000025*1 



RW = A + B*CWT - 

C«CWT**2 

« * 

I 

I 20 

« « 

FACT3 = A •■ 
B*PWT - C*PWT**2 



A = 2. 55 * 
1.3*AL0G(SS) 



= 1.3 ♦ .0058*1 
« « 

I 
I 



TEMP6 = EXP(-A + 
B*AL0G(SI)/1000 



TEMP7 = TEMP5*RW 



TEMP5 = 
TEMP5*FACTl*FACT3 



TEMPT = 
TEMP7*FACT2 



I 

I / 



303 



CHART TITLE - SUBROUTINE MOTOR 



CAR 
VEH 
CDS 



.22 >* 

I 
♦ CJMBIIME PASSENGER 

AND COMMERCIAL 
ICLE 
TS-MAINTENANCE 

I 

I 

1 01 



I T 
I 



EMP6 = (TEMP6 + 
TEMP7)*SIN0EX 



I 

I 
4PLACE THE SPEED 
NGE COST FOR 
L, TIRES, OIL AND 
NTENANCb IN 

I 

1 



CHA 
FUE 
MAI 



TEMP3 = TEMPS 
TEMP* + TEMPS 
TEMP6 



CHA 

IF 

QVE 



*HOLO THE SPEED 
NGE COSTS FOR USE 
A JUEUE IS LEFT 
R 

I 

I 



**»ACCUMULATE SPEED 
CHANGE COST DETERMINE 
FOR FREEWAY TO DETOUR 



30.07 >* 

6006 I 



09 



I COSTS! lA, IC,2,I0I 1 

I = I 

I COSTS! lA, IC,2, ID) I 

I + T£MP3«DArS I 



I 

»»*SET SPEED CHANGE 


AND INITIAL SPEED FOR 


NORMAL 


OPERATION ON 


DETOUR 


, 




I 

I 10 






I S = 


SPEEDD(IH) I 


I I = 


SPEEDO(IH) I 








I 
I 

I 




.79.04. 



I 

80.05*~>I 

I NOTE 13 

* CONTINUE * 

I 
I 
I 

»»*DETERMINE AVERAGE 
OPERATING SPEED IN 
QUEUE 

I 

I 

I 14 
« * 

I K = ( SPEED! IH) + I 
I .5)/2. I 

« » 

I 
I 
I 

♦♦♦DETERMINE 
PASSENGER CAR DELAY 
COST FOR THE HOUR 
I 



I TEMP4 = I 

I FACT1^0C0STS!K,11 ! 
I /lOOO I 

* * 

I 

T 

I 
•♦♦DETERMINE 
COMMERCIAL VEHICLE 
DELAY COSTS FOR THE 
HOUR 

I 



INDEX .EQ. 



I 



I TEMPS = I 

I FACT2^0COSTSIK>2) I 
I /lOOO I 



I Ql = 

I TEMP3/AVaL!lH) 



>I 

I 
4*»TEST TO DETERMINE 
IF DETOUR HAS TRAFFIC 
SIGNALS 

I 



I 



* 


* 


TRUE 


* CYCLE 


• EQ. 


♦ --f 


« 


* 


I 


♦ 


* 


I 


« 


« 


I 






.... 




IFALSE 


. BO . 






13 . + 
6010 I 














•♦♦SET THE INDEX 


FOR I 


THE SEQUENCING 




PROCEDURE 


I 

I 


06 1 


I INDEX = 


INDEX «• 


1 I I 










1 

1 





♦♦♦BRANCH TO 
APPROPR.IATE SPEED 
CHANGE ROUTINE 



I COMPUTED GO TO I 
I FOR INDEX I 



I 6006 
I 6007 



80.09 I 
80.11 I 



I 
I 

IF OUTSIDE THE RANGE 
I 
I 
I 08 



♦♦♦ACCUMULATE THE 
SPEED CHANGE COSTS 
NORMALLY INCURRED ON 
DETOUR ROUT 

80.07 >♦ 

6007 I 11 

« 1 

I COSTS! lA, IC,2r ID) I 

I COSTS! lA, IC,2,ID) I 

I TEMP34DAYS4DV0L I 
I ! IH)/AVOLl IH) I 



I 

♦♦♦SET SPEED CHANGE 
AND INITIAL SPEED FOR 
DETOUR OPERATION ON 
DETOUR 

I 

I 

I 12 



S = SPEEOIIH) 

I = SPEEDIIH) 

I 
I 
I 



I 



I 
I 
I 

♦♦♦COMBINE PASSENGER 
CAR AND COMMERCIAL 
VEHICLE DELAY COSTS 

I 

I 

I 17 



I 0UECSTI2) = 
I TEMP4 + TEMPS 



I 
I 

♦♦♦DETERMINE THE 
LENGTH OF THE QUEUE 
I 
I 



I OIST = 

I DELAYIIH) 

I ♦SPEED! IH)/2 

t 
I 
1 

♦ ♦♦DETERMINE NORMAL 
COSTS IN QUEUE ZO^E 

1 

I 

I 1 
« 

I QUECSTIl) = 
I QUECSTIl) 
I ♦OIST/SPEEDN! IH) 
« 

I 
I 
I 

♦♦♦DETERMINE 
OPERATION COSTS FOR 
VEHICLES WHILE IN 
QUEUE 

I 

I 

I 

I / 

/81.01 



CHART TITLE - SU3K0UTINE MGTiJR 



ao.^o >f 



1 0UECST(2) = 


I 


I gUECST(2) 


I 


1 «i)EL4Y(lH) 


I 


I 
I 
1 
♦•♦DETERMINE NET 




OPbRATION GUSTS IN 




UUKUE 

I 




I 
I 


02 


I TEMP'. = 


I 


I JUECST(2) - 


I 


I JUECST(l) 


I 



I 
I 

♦♦♦DETERMINE 
PQLUTION FACTOR FOR 
QUEUE 

I 

I 

I 03 



p = 


SPEtOllH)/2 I 




PJ = I 


.d9^IEXP( 1. 193 - I 




.032^P) + 1 


.U« 


(EXPI 0.957 - I 




.U26^PII) I 



I 
I 
I 

♦♦•CU1PUTE THE TUTAL 
OPERATION COST FOR 
THE HOUR 

I 

I 

I 04 



I TEMPI = (TtMP2 
I TtMP3 f TEMPh 
I TEMPll»OAyS 

♦ — 

I 
I 
I 

♦♦♦ACCUMULATE 
OPERATION COSTS 
1 
I 
I 



I 



05 



I COSTS! lA, IC,2, ID) I 

I = I 

1 COSTS! lA, IC,2, 10) I 

I + TEMPI I 



I 

1 
SUBROUTINE POLUTE 

I 

I 

I 
♦♦♦TEST TO DETERMINE 
IF ALL LANES ARE 
CLOSEO 

I 

I 

» 06 



♦ ♦ TRUE 
IC .NE. LANES ♦-+ 

♦ ♦ I 
♦ ♦ I 

♦ ♦ I 



IFALSE 



♦♦♦TES 
IF ANY 
AVAILAB 



T TO DETERMINE 
SHOULDERS ARE 
LE 

I 

I 

I 



^tB ( 12,IA) 
.GT. 1 



♦♦♦NON DETOUR 
SITUATION 



81. 06^ — >♦ 

6020 1 NOTE 



♦ ♦ ♦ ♦ 



I 

♦♦♦DETERMINE 
EQUIVALENT NORMAL 
FREEWAY VEHICLE MILES 
I 



IFALSE . 61 . 
I . 1* . 




1 

1 15 


I 6020 
I 


1 TEMPI = ! PR/PV - 1 
I D^AVOLI IHI^ZONE I 


I 
♦♦♦DETERMINE DAYS OF 
POLJTION FOR ObTOUR 
CONDITION 

I 
I 




I 


6030 I NOTE 16 
#♦♦♦♦♦♦♦♦♦♦ 

♦ CONTINUE ♦ 

♦ ♦♦♦♦♦«♦♦♦♦ 


♦♦♦DETERMIME 
PERCENTAGE SPLIT 
BETWEEN FREEWAY AND 
DETOUR NORMAL 
1 
I 
, I 06 

* « 

I FACTl = 1 
I HVQL( IN) I 
I /(HVOLC IH) *■ 1 " 
I DVOLI IH) ) I 

I 

I 
♦♦♦DETERMINE FREEWAY 
DETOUR EQUIVALENT 
VEHICLE MILES 




I 

I 
♦♦♦DETERMINE NORMAL 
FREEWAY EQUIVALENT 
VEHICLE MILES FOR 
QUEUE 

I 

I 

I 17 


I TEMP2 = ! PQ/PV - I 
I 1)^AV0L(IH)+DIST I 




I 

I 

1 

♦♦♦TOTAL THE VEHICLE 

MILES 

I 


I 

I 09 

>^ 4; 

1 TEMPI = IPR/PV - 1 
1 l)^AVOL(IH) 1 
1 ♦FACT l^DETOUP ( 1) I 




I 18 


I TEMPI = TEMPI * I 
I TEMP2 1 


1 


I 

1 

I 
♦♦♦DETERMINE EXTRA 
VEHILCE MILES ADDED 
BY DETOUR 

I 




I 
♦♦♦ACCUMULATE 
VEHICLE MILES OF 
PQLUTION 

I 

I 19 


I 10 

4; ^ 

I TEMP2 = I 
1 1 PR/PV)»AVOL( IH) I 
I »FACTl*IDETDUR( 2) 1 
I - DETOUR! D) 1 


I POLUTE! IC) = I 
1 POLUTE! IC) ♦ 1 
1 TEHPl^OAYS I 
« « 

I 
I 


I 

I 
I 

♦♦DETERMINE FREEWAY 
EQUIVALENT NORMAL 
DETOUR VEHICLE MILES 
1 


6000 ♦ 20 

♦ ♦ 

♦ ♦ 

♦ ♦ N 
♦ END OF DO ♦-+ 

♦ LOOP? ♦ I 

♦ ♦ 1 

♦ ♦ 1 


I 11 




lYES . 77 
I . 24 


I TEMP3 = (PR/PD - I 
1 D^AVOLIIH)^! 1 - 1 
I FACTl)^UETaURI21 1 


i TEMP3 = 1 
I PV/PD+TEMP3 1 




1 « 
I / 

/B2.01 


I 

I 

I 

♦♦♦TOTAL THE VEHICLE 

MILES 

I 




1 13 


1 TEMPI = TEMPI ♦ 1 
1 TEMP2 <• TEMP3 I 

4c 4c 

^ I 
1 









305 



CHART TITLE - SUBROUTINE MOTUR 



**«AOJUS 
DAYS TO I 
VEHICLES 
QUEUE 



♦ TRUE 
-Eg. «.- + 

* I 
* I 

* I 

* • •• • 

IFALSE . 82 . 
I . 15 . 

I 6040 

i 

I 

I 

T POLUTION 

NCLUDE 

LEFT IM THE 

I 

I 
1 



o^ 



I POLUT 

I POLUT 

I (PQ 

I i)*gu 



E(1C) = I 

E( IC) + I 

/PV - I 

EUE»DIST I 



«»»MAKE 
IN OPERAT 
FOR ANr V 
IN QUEUE 



*«*GET T 
SPEED OF 
THE FREEH 



I 
I 
I 

ADJUSTMENT 
ION COSTS 
EHICLE LEFT 

I 
I 
I 

HE NORMAL 
VEHICLES ON 
AY 



I I = SPEEONia*) 
I .5 


+ 


I 
I 


I 
I 
I 

♦«*COMPUTE THE 
NORMAL TIME FOR 
PASSING THRU THE 
CLOSURE ZONE 

I 

1 

I 




0* 


I C = 

I ZONELIIA.ICI 
I /SPEE0N(2<.1 




I 

I 


I 

I 

I 
«*«CQMPUTE THE PASS. 
CAR OPERATING COSTS 
FOR PASSING THRU THE 
ZONE 

I 

I 

1 05 


I TEMPI = 
I QUEUE«OCOSTS( I 
I *(1 - 
I PCTADTIZ'f.b.IO 
I )*C 


I) 
L) 





I 
I 
I 

«**COMPUTE THE COM. 
VEHICLE OPERATING 
COSTS FOR PASSING 
THRU THE ZONE 

I 

I 





— >* 
I 


07 


I TEMP2 = 
I QUEUE*OCOSTS( 1 , 2) 
I ♦PCTA0T(2'.,6, 10, 
I 1)*C 


I 

1 
1 


I 
I 

♦*«C0MB1NE OPERATING 
COSTS, COMPUTE SPEED 
CHANGE COSTS, ANU 
EXPAND BY 

I 




1 


Od 


I TEMPI = (TEMPI t 

I TEMP2 <■ 

I «UEUE*Ql)*DAYS 


I 

1 

I 


I 
I 

1 
»»»COMPUTE THE 
AVERAGE SPEED OF A 
VEHICLE LEFT IN THE 
aUEUE 

I 






I 
I 


09 



SP( LANES + 
U)/2 * .5 



I 
I 

»**COMPUTE PASSENGER 
CAR OPERATING COSTS 
IN THE QUEUE 

I 

I 

I 10 
« « 

I • TEMP3 = 

I QUEUE*0C0STS(K,1) 

I *ll - 

I PCTADT(2',,6,ID,1) 

I I 

« 1 

I 
I 
I 

*<=«COMPUTE THE 
COMMERCIAL VEHICLE 
OPERATING COSTS IN 
THE QUEUE 

I 

I 

I 11 



I QUE 
I *PC 
I 



TEMP4 = I 

UE*0C0STS(K,2) 1 

TADT(24,6, ID, I 

1) I 



I 
I 
I 

♦ •♦COMBINE 
COMMERCIALiPASSENGER 
CAR QUEUE COSTS AND 
EXPAND BY DELAY A 

I 

I 

I 12 



I TEM 
I TEM 
I 



P3 = ( TEMP3 <• I 
P4)*DELAY(24) I 
♦DAYS I 



I 
I 

I 

DJUST OPERATING 
FOR VEHICLES 
N THE QUEUE 

I 

I 



***A 
COSTS 
LEFT 



->* 
I 



1* 

— * 



I COSTSl lA, IC,2, 10) I 
I = I 

I COSTSl IA,IC,2,I0) T 
I ♦ TEMPI + TEMP3 I 
« « 

I 

82.01 >I 

6040 I NOTE 15 

* CONTINUE * 

I 

I 
I 

SUBROUTINE TIME 

I 

♦•♦INITIALIZE DETOUR 
PARAMETERS TO ZERO 
I 
I 
I 16 



I FACT2 


= 


I 


I TEMP2 


= 


I 


1 TIMELD 


= 


I 



I 
I 

I NOTE 17 

• BEGIN DO LOOP • 

• 6100 IH = IBEGIN, * 

• lENO * 

I 

84.07 >I 

I 

«**THE WEIGHTED 
VALUE OF COMMERCIAL 
TIME IS TEMPI 

I 

I 

I IS 



I TEMPI = 

I COMVOT^PCTAOTIIH, 

I 6,10,1) 



I 
I 

♦•♦COMPUTE AVERAGE 
SPEED IN SPEED CHANGE 
ZONE 

I 

I 

I 19 

« « 

I TEMP3 = I 
I .254SPEEDN( IH) + I 
I .75^SPEEOIIH) I 

* * 

I 
I 
I 

♦••COMPUTE TIME LOST 
IN SPEED CHANGE ZONE 
I 
I 
I 20 

« 4 

I TEMP3 = I 
I (SCZ0NE/TEMP3 - I 
I SCZONE/SPEEDNdH) I 
I }*Z I 



I 
I 

♦♦♦IF A QUEUE EXISTS 
COMPUTE TIME LOST IN 
SPEED CHANGES 
I 



DELAY 

.NE. 



IIH) 




I TRUE 
I 
I 
I 

I 
I 
I 23 

« * 

I TEMP3 = I 

I 1.67*SCZ0NE/ I 

I SPEEDN(IH) I 

« « 

1 

>I 

I 

•••BYPASS THE 
COMPUTATION OF LOSS 
TIME FOR DETOUR 
UNLESS ALL LANES AR 

•♦•AND THE SH3UL0ERS 
ARE NOT AVAILABLE TO 
TRAFFIC 

I 

I 

I 

• 24 



♦ 
LANES 

♦ 
« 
• 


TRUE 
*-♦ 

I 
I 


FALSE . 


as'. 
20 . 



♦ ♦ TRUE 
♦ 0VER(12,IA) •-* 

* .GT. ♦ I 
• * I 

♦ ♦ I 

♦ .... 

IFALSE . 83 . 
1 . 20 . 

I .... 

I 6110 

I 
I 

•••TIMEL IS THE TIME 
LOST BY A MOTORIST 
KHO NORMALLY TRAVELS 
THE FREW 

••♦IS FORCED TO 
TRAVEL THE DETOUR 
ROUTE 

I 

I 

I 26 



TIMEL - 

OET0UR(2) 

/SPEED! IH) - 

DETOUR! 1) 

/SPEEON(IH) * 

OELAY(IH) + TEMP3 



I 
I 
I 

♦••COMPUTE AVERAGE 
SPEED IN SPEED CHANGE 
ZONE 

I 

I 

I 

I / 



/83.0I 



306 



CH4RT TITLE - SUa>*OUTINt HOTOR 



62.27 >« 



1 TE'<P4 = I 

I .25«5PLE0D( IH) ♦ 1 
1 ./5»SP£E0(1H) I 

« « 

I 

I 
I 

«*«CO»(PUTE TIME LOST 
liM SPEbU CHANGE ZONE 
I 
1 
I 02 



1 Tt.MP* = 1 

1 ( SCZUME/TEMP4 - I 
1 SCZi]NE/5PEED0( IH) 1 
I )*2 I 

V « 

I 
I 

I 
*«*IF A gilEUE EXISTS 
CUMPJTE TME LQST IN 
SPEEO CHANGES 

I 

I 

I 

* 03 



DELAVl IHI 
.NE. 



ITRUE 
I 

I 




I 
I 
I 


0* 


I TEMP4 = 
I 1.670SCZONE/ 
I SPEFDO(IH) 


1 

I 


1 
>I 




»**TMELD IS THE 
TIME LOST BY A 
MOTJKIST WHC NORMALLY 
TRAVELS THE QfcT 

I 


I 
I 


05 


1 TIMELU = 1 
I IJETGUR(2) I 
I /SPEEDdH) - t 
I DET0UR(2) 1 
I /SPEfDD(IH) + I 
I UELAYI IHI t TEMP* I 


1 

I 

1 
*««FACT1 IS THE 
RATIO OF THE NORMAL 
FREEiVAY VOLUME TO THE 
TOTAL VCLU-1 
**«OcTQUK ROUTE 

I 

I 

I 06 


I FACTl = 
I HVOL(IH) 
I /(HVOLI IHI + 
I OVOL(IHJ) 


I 

I 
I 
I 


I 
I 

»»*FACT2 IS THE 
RATIO OF THE NORMAL 
VOLUME ON THE OETOUR 
ROUTE TO THE 
I 
I 



->* 



***VOLUME ON THE 
DETOUR ROUTE 
I 
I 
I 



I 
I 
I 
I 


F4CT2 = 

DVOLI IHI 

/(HVOLI IHI + 

OVOLI IHI I 


I 

I 

I 


I 
I 
I 

***J IS THE TI-MELOSS 
ON THE OETOUR ROUTE 
IN MINUTES TO THE 
NEAREST MI 

I 




I 
I 


09 


I J = I 
I ABS( T1MELOI«60 ••■ I 
I .5 I 



* * « * 



I NOTE 15 
4 # # « 4t * 



4 4t « 4t « « 



I 


+ 


I 
I 




I 


12 I 


1 J = 40 


I I 














«*»ACCUMULATE THE 




WflGHTED VALUES OF 




TIME LOSS FDR ALL 




TRIP PURPOSES 

I 




I 
1 


13 I 






1 TEMP2 = TEMPI 


I I 


I 

I 

I NOTE 


14 I 


****##*»* 


# * I 


* BEGIN DO LOOP 


* I 


* 6101 IT = 1, 5 


* I 


I 


* * I 



I 



17 



I TEMP2 = TEMP2 -i- I 

I VTRATEdT.Jl I 

I »PCTAOT( IH, IT, 10. I 

I 1) I 



I 



ENU OF 00 
LOOP? 



lYES 




I 




I 




I 




I 




♦♦♦COMPUTE THE 


VALUE 


OF TIME LOST TO 




DETOUR ROUTE 




MOTORISTS 




I 




I 




I 


19 






I TEMP2 = 




I TEMP2^TIMEL0 


I 






1 



♦♦♦COMPUTE THE TIME 
LOSS ON THE FREEWAY 
FOR A NONOETOUR 
SITUATION 

82.2',^— >♦ 

6110 I 20 



TIMEL = 
ZONELI lA, IC) 
/SPEED! IH) - 
ZONELI lA.IC) 
/SPEEONdHI ♦ 
DELAY! IHI 

TIMEL = TIMEL 
TEMP3 



I 

I 
I 

♦♦♦SET THE RATIO OF 
THE FREEWAY NORMAL 
VOLUME TO THE TOTAL 
VOLUME EQU 

I 

I 

I 21 



FACTl 



1 



I 



I 
I 

♦♦♦I IS THE TIME 
LOST TO A FREEWAY 
MOTORIST IN MHUTES 
TO THE NEAREST 
I 
--83.16^ — >I 

6120 I NOTE 22 

♦ *****♦♦♦#♦ 

♦ CONTINUE * 
**«*♦♦♦♦♦♦♦ 

I 

I 

I 23 

« 4 

I I = • I 

I ABS(TIMELI^50 ♦ I 
I .5 I 



♦ 


TRUE 


. 


♦ -+ 


♦ 


I 


♦ 


I 


♦ 


1 




• • • • 


FALSE . 


84 . 




07 . 



♦ FALSE 
40 ♦-+ 



ITRUE 

I 

I 

I 

I 

I 

I 



84 
01 



26 

— ♦ 
I 



I 
I 
I 
I / 



307 



CHART TITLE - SUBROUTINE MOTOR 



83.25* — >« 
I 
»**aCCUMULATE THE 
WEIGHTED VALUES OF 
TIME LOST 

I 
I 

I NOTE 01 
*********** 

* BEGIN 00 LOOP * 

* 6121 IT = 1, 5 * 
*********** 

I 
>l 

I 02 

^ « 

[ TEMPI = TEMPI * I 
1 VTRATE( IT , I) I 
1 *PCTAOT I IH, IT, 10, 1 
I I) 1 

« # 

I 
I 

6121 * 03 

* * 
NO * ♦ 

--* END OF DO * 
* LOOP? » 



lYES 

I 

I 

I 

I 

I 

I 
**«COMPUTE THE VALUE 
OF TIME LOST TO 
FREEWAY MOTORISTS 

I 

I 

I Oi, 

I TEMPI = 1 

I TEMP1*TIMKL I 



I 

I 

***COMPUTE THE 






AMOUNT 


OF TIME LOST 




BY ALL 


MOTORISTS 


IN 




HOURS 


1 




05 



COSTS! I A, iC,5, ID) 

C0STS(IA,ICi6,ID) 

+ 

AVOL( IH) 

•DAYS*100U* 

(TIMEL*FACT1 + 

TIMELD*FACT2I 

:4c if 

I 
I 
I 

»**COMPUTE THE VALUE 
OF TIME LOST FOR ALL 
MOTORISTS 

I 

I 

I 06 
« . « 

COSTS! lA, IC ,5,1UI 

COSTS! I A, ICf5. 10) 

+ 

AVOL( IH) 

*0AYS*1000* 

(TEMPl*FACTI + 

TEMP2*FACT2) 



83.24* — >* 
I 
6100 » 7 



Ei^lD OF 00 *-♦ 

LOOP? * I 

* * I 

* * I 



84.12 >* 



YES . 82 . 
. 18 . 



* « TRUE 
JUEUE .EQ. * 



***MAKE ADJUSTMENT 
TO TIME LOSS AND TIME 
COST FOR VEHICLES 
LEFT IN QU 
I 



09 



TEMP2 = 

C0MV0T*PCTADT(24, 

6, IU,1) 

TEMPI = 

QUEUE/CAP(LA,MES * 

1)*.5 

I = TEMP1*60 t .5 



I 1 = 1 I 

« 1 

I 



* 12 

* * 



* FALSE 
I .GT. 40 * 



* * 
[TRUE 



I 
->I 



I NOTE 14 
***«**«**«* 

* BEGIN DO LOOP * 

* 6130 IT = t, 5 • 

^^^c^^^c^t**** 

I 

l< 

I 15 

« « 

I TEMP2 = TEMP2 + I 
I VTRATEdT.I) I 

1 *PCTADT(24, IT, 10, I 
I 1) I 

» « 

I 
I 
I 



END OF DO 
LOOP? 



COSTSI lA, IC,5, ID) 
C0STS(IA,IC,5, ID) 



I TEMP2*TEMP1* I 
I OUEUE*1000*DAYS I 
» « 



I C0STS(IA,IC,6, ID) 
I 

I COSTSI lA, IC,6, ID) 
I + 

I TEMP1*0UEUE*1000* 

I DAYS 

* 1 

I 
>I 

6140 I NOTE 19 

* CONTINUE * 
«*#«*«***** 

I 

I 

I 
SUBROUTINE ACCID 

I 

I 

I 
***INITIAL IZE NORMAL 
ACCIDENTS ON THE 
DETOUR TO ZERO 

I 

I 

I 20 



I 



TEMP3 = 



I 



I 
I 

I 

*** SET TEMP6 EQUAL 
TO THE AVERAGE ZONE 
LENGTH 

I 

I 

I 21 



TFMP5 = 
ZONFLI IA,IC) 



I 
I 
I / 



Chart title - suacouTiNE "ihqr 



.21- 



I 



***1F THE TRAFFIC IS 
DETOUSEO THE ZUNF 
LENGTH IS THE 
DISTANCE 

*»»HETntEN 
INTEKCHANGES 

I 

I 

I 

« 01 



» !C .Ew. t 

LAfiES -ANU. 

»JVEii( !<;, IA)4 

».EJ. » 



ITRUt 

I 

I 

t 

I 

I 

I 02 

« 4c 

I TEMP6 = UETQUR( I) I 
« 4 

I 
>I 

I 
tt4Ca.viPuTt THE 
NlJKHAL Af NUAL 
ACCIDENTS ON THE 
FREEWAV 

I 

I 

I 03 



TEMPI = 

ACD(LANtS,l) * 

AC0(LAM£S,2I 

• ALdGITEMPb) t- 
AC0(LAMES,3I 

♦ ALDGI VOLUME! 11 
*2000»A8SI ID - 

1 - 
SPLIT( 1) /lOO) ) 



FUR DETOUR 
I 
I 



« IC .bU. * 


TRUE 


LAMES .AND. 


*-<■ 


»OVER (12, I A)« 


I 


«.tQ. * 


I 


* * 


1 


4 


• > ■ • 


IFALSE 


S5 . 


I 


1* . 



I 

I g2 

I 

I 

1 

*»*GtT SUBSCRIPT FC 
ACCIDENT EJUATION 
COEFICIENTS 

I 

I 

I 

1 I = LANES - IC 



I 
I 

**«SET FACTOR FOR 
MORE THAN ONE 
SHOULDER Tu 1 

I 

I 



FACT3 = 1 



I 
I 
*««IF ALL LANES ARE 
CLJSED SET SHOULDER 
FACTOR EQUAL TO 
NUMBER OF SH 

I 
I 

* 08 
* * 



«** SET THE 
SUBSCRIPT FOR THE 
ACCIOENTS EOUATION 
COEFFICIENTS FOR THE 

85.0* >* 

6210 1 1* 

« » 

I I = Jt + DETaUR(7) I 
« « 

I 
I 
I 



FALSE * 
* I .FC. 



I TRUE 
I 
I 
I 
I 
I 

I 09 
t » 

I FACT3 = I 

1 0VERH2,IA) I 

# * 

I 
>I 

I 

t«»lF ALL LANES ARE 

CLOSED SET ACCIDENTS 

EQUATION COEFICIENTS 

SUSSCRI 

I 

I 

I 

« 10 



I TRUE 
I 
I 
I 

I 
I 

I 11 

* « 

I 1 = 1 I 

# * 

I 

>I 

I 

*»«COMPUTE THE 
ANNUAL ACCIDENTS FJO 
THE CLOSURE SITUATION 
I 



i 



12 



TEMP2 = 

ACO( 1,1) ♦ 

ACD( I ,2) 

»AL0GI ZONEL ( lA, 

IC 1 ) + 

ACDl 1,3) 

»ALOG( ( VOLUME ( 1) 

«2000*ABS( ID - 

1 - 

SPLI T( 1) /lOO)) 

/FACT3) 

4c 

I 
I 
I 

«s» SKIP THE 
COMPUTATION OF 
ACCIDENTS ON THE 
DETOUK 

I 



I 

I 16 
* * 

I I = T I 

I 
>I 

««*COMPUTE THE 
ANNUAL ACCIDENTS FOR 
THE DETOUR ROUTE WITH 
FREEWAY TRA 

I 

I 

I 17 



TEMP2 = 

ACOd.l) * 

ACDd ,21 

•AL0G(DET0UR(2) ) 

AC0( 1,3) 
*AL0G( (DETOURCI 

+ 

VOLUME! 1) ) 

*2000*A8S( id - 

I - 

SPLIT ( 1)/100I ) 

« 

I 
I 
I 

**«COMPUTE THE 
NORMAL ANNUAL 
ACCIDENTS FOR THE 
DETOUR 

I 

I 

I 1 

TEMP3 = 

ACDd, II t 

AC0( I ,21 

«ALOG(OETOUR(2) ) 

■f 

AC0(I,3I 

*AL0G(0ET0UR(*) 

*1000»ABS( ID - 

1 - 
SPLIT! l)/100) ) 

TEMP3 = 
EXPI TEMP3 )/2 

« 

I 
I 
I 
»»»C0MPUTe THE 
ANNUAL INCREASE IN 
ACCIDENTS CAUSED BY 
THE CLOSURE 

I 



35.13«— >• 




5220 1 


20 


I TEMPI = 


I 


1 EXP(TEMP2)/2 - 


1 


1 EXP(TE«Pll/2 - 


1 


I TEMPS 


1 


« 





I 

I 

•'•INCREASED 
ACCIDENTS MAY NOT BE 
NEGATIVE 

I 

I 

I 

• 21 



-♦ TEMPI .LT. * 



I 
I 

I 22 

4 « 

I TEMPI = I 

« » 

I 
>l 

I 

•«« INCREASED ANNUAL 
ACCIDENTS IS FACTORED 
BY THE PORTION OF 
YEAR 

♦•♦WHICH THE 
CLOSURE WAS IN EFFECT 

I 

I 

I 23 

« « 

I TEMPS = TEMPI/365 I 



I 
I 

I NOTE 24 
««•♦•♦« 

IN DO LOOP ♦ 

IH = IBEGIN, ♦ 

lEND ♦ 



BEG 
5230 



♦ « 



♦ « ♦ ♦ 



♦♦♦CON 

ACCIDEN 
ACCIOEN 



I 
~>I 

I 

VERT 

TS/OAY TO 
TS /HOUR 

I 

I 

I 



I TEMP5 
I 7, I 



TEMPI = 
♦PCTADTI IH, 
0, ll'DAYS 



I 

I 
I 

•♦•SET INCREASED 
ACCIDENTS OF DETOUR 
ROUTE TRAFFIC TO ZERO 

I 

I 

I 26 



I 



TEMP3 = 



I 
I 

♦♦♦COMPUTE 
DECELERATION RATE OF 
FREEWAY MOTORIST 

I 

I 

I 

I / 



/85.01 



I 13 



309 



CHART TITLE - SUBROUTINE MOTOR 



FACTl = 

(SPEEUN( 1H)**2 H 

SPEEO( IH)*«2) 

/(2*SCZ0NE) 



1 
I 
I 
***1F A DELAY EXISTS 
DECELERATE TO ZERO 
I 
I 
I 
* 02 



DELAY( IH) 
• GT. 



ITRUE 
I 
I 
I 
I 
I 

I 03 
« » 

I FACTl = I 

I SPEEDN(IH) I 

I **2/(2«SCZONE) I 

« « 

>I 

I 

*«* C01PUTE THE 
INCREASE ACCIDENT 
RATE DUE TO 
DECELERATION 

I 

I 

I 04 



I TEMP2 = 
I .002 



- 1.32 
»I-ACT1 



***INCRE 
ACCIDENT 
MEGATIVE 



I 
I 

ASED 

MAY NOT BE 

I 
I 
I 



FALSE * 
* TEMP2 



ITRUE 
1 
I 
I 
I 
I 

I 06 
# * 

I TtMP2 = I 
» « 

I 
>I 

I 
«** CONVERT ACCIDENT 
RATE TO ACCIDENTS 

I 

I 

1 07 



I TE 

I TEMP2/ 
I (IHI»SC 



MP2 = I 

1000*HVOL I 
Z0N£*UAYS I 



>* 

I 
***IF ALL LANES ARE 
CLOSED AND NO 
SHOULDERS ARE OPEN 
SKIP DETOUR 

I 



75.27 >I 



* IC .NE. LANES *- 



0VER(12,IA) 
» .GT. ' 



TRUE 
♦ : 



I 
I 
I 
I 

I 
I 

*«*COMPUTE THE 
OECELERATION RATE OF 
TRAFFIC ON THE DETOUR 

I 

I 

I iO 



I FACT2 = I 

I ( SPEEODI IH)»*2 - I 

I SPEE0(IH)**2) 1 

I /(2*SCZ0NE( I 



I 
I 
I 

***IF A DELAY EXISTS 
DECELERATE TO ZERO 
I 
I 
I 
* 11 



DELAY! IH) 
.GT. 



ITRUE 

I 

I 

I 

I 

I 

I 



I FACT2 = 
I SPEEUDIIH) 
I **2/(2*SCZ0NE) 



I 

**«COMPUTE THE 
ACCIDENT RATE DUE 
DECELERATION ON 
DETOUR 

1 

I 



I TEMP3 = - 1.32 * I 
I .002«FACT2 I 



I 
I 

♦♦♦ACCIDENT RATE MAY 
NOT BE NEGATIVE 



» • FALSE 
♦ TEMP3 .LT. * 



16 

--* 
I 



♦♦♦CONVERT ACCIDENT 
RATE TO ACCIDENTS 



I TEMP3 = I 

I TEMP3/1000^DVOL I 
I < IH)*SCZONE*OAYS I 



I 

I 

♦♦♦COMPUTE THE TOTAL 
INCREASED ACCIDENTS 
I 
— 86.0B^ — >I 

6231 I 18 



I 



TEMP* = TEMPI + 
TEMP2 * TEMP3 



I 

I 

I 
♦♦♦ACCUMULATE 
ACCIDENTS FOR YEAR 

I 

I 

I 19 
« * 

I ACDTS(IC) = I 
I ACDTSI ICJ <• TEMP4 I 
t, « 

I 
I 









♦ 


NO 


END 


OF 00 




♦ -+ 




LOOP? 


♦ 




♦ 


♦ 


♦ 
♦ 
♦ 

lYES 
I 




85 
25 



END OF DO *-* 
LOOP? ♦ I 



75 
07 



N3TE 22 

♦ BEGIN DO LOOP ♦ 

♦ 5050 IC = I. ♦ 

♦ LANES ♦ 



I 

♦♦♦CONVERT ACCIDENTS 

FOR YEAR TO COSTS AND 

HOLD BY ACTIVITY 

♦♦♦AND CLOSURE 

I 

I 



I CQSTS(IA,IC,3,IDI 

I 

I COSTSdA, IC,3iI0) 

I + 

I ACDTStIC)*AACQST 

« 

I 
I 
I 

♦♦♦HOLD POLUTION 
DAYS 

I 
I 



I COSTSdA, IC,7, ID 
I = POLUTF(IC) 



) I 
I 



END OF DO 
LOOP? 



lYES 

I 

I 

I 
I 

I 

♦ ♦♦BRANCH TO 
APPROPRIATE FREEWAY 
TYPE 

I 

I 

I 26 



I 



COMPUTED GO TO I 
FOR KP I 



I 5910 
I 5920 
I 5930 



87.01 I 
87.09 I 
88.01 I 



I 

I 
1 

IF OUTSIDE THE RANGE 
I 
I 
I 
♦♦♦FOUR LANE OIVIOEO 
I 
I 
I 
I / 



/87.01 



310 



CHART TITLE - SUJkOUT Il-IE MOTOR 



86.<!6* — >* 

5910 I NOTE 01 
■It**'**!!:***';'';' 

* CONTINUE » 
*********** 

I 

I 

1 
«**ACCUMULATE COSTS 
FUR ALL MOTOR 
PARAMETERS 

I 

I 

I NJTE 02 
*********** 

• BEuIN DO LGOI' * 
« 5911 J = 2, 7 * 
«**«*»***** 

I 

I< 

I 03 
« * 

1 TEMPI = I 
1 CUSTSl IA,1, J, lUI I 
# * 

I 

I 

[ 
«**CLOSE tiCTH LANES 
ANU UcTOUR TRAFFIC 

I 

1 

I 0<t 
* * 

1 COSTS( [A, 1, J, lU) I 
1 = I 

I C05TS( 1 A,2, J, ID) 1 

* * 

I 

I 
I 

***CLaSE ONE LANE AT 
A TIME 

I 

I 

I 05 
* * 

I CuSTSt I A,2, J, ID) I 
I = TEMP1*2 I 



I 
I 
I 
»**T£ST FJR 
CUMPUTAELE CROSSOVER 
I 
I 
I 
* 06 



« * TRUE 

* CROSSIl) .EO. *-<• 

* * 1 

» « I 

* « I 

IFALSE . 38 . 
I . 12 . 

1 5000 

I 

I 

I 
**»CLOSE 8CTH LANES 
AND CROSS OVER TO ONE 
LANE OPEN 

I 

I 

I 07 
* * 

I CQSTS( IA,3, J.IUl I 

1 = I 

I TEMPl*(CR0SS(2 I 1 

I /CR0SS(1))«2 I 



I 



END OF 00 
LOOP? 



lYES 

I 

I 

I 

I 

I 

I 



***SIX LANE DIVIDED 

86-26 >» 

5920 I NOTE 09 

* CONTINUE * 

I 
I 
I 

«**ACCUMULATE COSTS 
FOR ALL MOTOR 
PARAMETERS 

I 

I NOTE 10 
****#*«**** 

* BEGIN DO LOOP « 
« 5921 J = 2, 7 « 
*********** 

I 

I< 

I 11 
* * 

I TEMPI = I 
I COSTSl IA,1, J,IO) I 
1 I 

I rEMP2 = I 
I COSTS( IA,2,J,ID) I 
* 1 

I 

I 

I 
•♦•CLOSE ALL THREE 
LANES AND DETOUR 
TRAFF IC 



I COSTSi IA,1, J, ID) I 
I = I 

I COSTSl IA,3, J, IDI 1 



***CLOSE 
THEN CLOSE 



MO LANES 
ONE LANE 



I COSTSl lA, 2, JtID) I 
I = TEMP2 t TEMPI I 



I 

I 
• ♦♦CLOSE ONE LANE AT 
A TIME 

I 

I 

I 1* 
« * 

I C0STSIIA,3. JtIO) I 
I = TEMP1*3 I 

* * 

I 
I 
I 

♦•♦TEST FOR 
COMPUTABLE CROSSOVER 
I 
I 
I 
• 15 



* 


CRnsS(2) 


.Ea. 


*-4- 




* 


* 


1 




« 


« 


I 




♦ * 




I 








.... 




IFALSE 


. 88 . 








. 12 . 








5000 



>* 

I 

«**COMPUTE CROSS 
OVER FACTOR FOR ONE 
LANE CLOSED 
I 

I 16 

« « 

I TEMP3 = I 
I CR0SS(3)/CR0SS( II I 
* * 

I 

I 

I 
•••COMPUTE CROSS 
OVER FACTOR FOR TWO 
LANES CLOSED 



I TEHP-t = I 

I CR0SS(3I /CR05S(2I I 



I 
I 

♦••CLOSE ALL THREE 
LANES AND CROSS OVER 
TO ONE LANE OPEN 

I 

I 

I 18 
* * 

I COSTSIIA,*, J.IO) I 
I = TEMP1^TEMP3 <• I 
I TEMP2*TEMP4 I 

* « 

I 

I 
5921 • 19 

• • 

* * 
NO • ♦ 

— • END OF 00 • 
• LOOP? • 



3U 



CHART TITLt - SUBKOUTINE MOTOR 



«»*EI&HT LANE 
OIVIUED 



3(..2a— >» 

5930 I NOTE 01 

* CONTINUE * 

I 
T 

I 

••♦ACCUMULATt COSTS 
FOK ALL MOTOR 
PARAMETtF S 

I 

I 

I NOTE 02 

* BEGIN DU LOOP <■ 
<■ 5931 J = 2, 7 * 

I 

BS.U >I 

I 03 

« . 4 

I TEMPI = 

I COSTS! IA,1, J, in) 

I 

I TEMP2 = 

I COSTS! IA.2i J. ID) 



I 
I 
I 

♦»*CLnSE ALL FOUR 
LANES ANO DFTOUB 
TRAFFIC 

I 

I 



I COSTS! lA, 1, J, ID) I 
I = I 

I COSTS! lA.i,, J, ID) I 



**»cLJse thkee lanes 

THEN CLOSE ONE _LA_NE 



I 



Ob 



I CTSTSI IA,2, J, lU) I 

! = I 

I COSTS! lA, 3, J, ID) I 

I + TEMPI I 

« _ tL 

I 
I 
I 

♦♦"CLOSE TWO LANES 
AT A TIME 

I 

I 

I 06 

«. , 1 

I CnSTSIIA,3. J, lU) I 
I = TeMP2«2 I 



***CLnSE 


I 

U'>IE 


LANE 


AT 


A TIME 


I 
I 

I 




07 



I COSTS! lA.'i.J, lu) I 
I = TEMPl*^ I 

4 ^ 4 

I 
I 
I 
**«TEST FOR 
COMPUTABLE CROSSOVER 
I 
I 



TRUE * • 

4 CRQSSI2) .EO. 

4 0* 



IFALSE 

I 

I 

I 

I 

I 



•**CLOSE ALL FOUR 
LANES AND CROSS OVER 
TO TWO LANES 

I 

I 

I 10 

4 4 

I COSTS! IA,5, J,IO) I 
I = I 

1 TEMP2«ICR0SS!4) I 
I /CR0SS!2II»2 I 

4 4 

I 
I 
I 









4 


NO 


END 


OF DO 




4- + 




LOOP? 


4 


I 


4 


4 


4 
4 
4 
lYES 

I 




I 

S8 
03 



75.03»~> 

5000 



END OF DO 
LOOP? 



75 . 
03 . 



512 



i 



1 1 1 1 1 


1.1 ^ 


tn^ 














N 


\i\ 


> 1 

1- 


' g ov 














o 


rl 


u 


1 s 
















3 


0) 

o 


1 

g 
1 














^ 




O 
m 





NOTICE 

This document is disseminated under the sponsorship of 
the^Department of Transportation in the interest of 
information exchange. The United States Government 
assumes no liability for its contents or use thereof. 

The contents of this report reflect the views of Byrd, 
Tall amy, MacDonald and Lewis, which is responsible for 
the facts and the accuracy of the data presented herein. 
The contents do not necessarily reflect the official 
views or policy of the Department of Transportation. 

This report does not constitute a standard, specification 
or regulation. 



FHWA DISTRIBUTION NOTICE 



Sufficient copies of this report are being distributed 
by FHWA Bulletin to provide a minimum of one copy to 
each regional office, one copy to each division office, 
and one copy to each State highway agency. Direct 
distribution is being made to the division offices. 



DOT LIBRARY 




00l4t2l4 



' i 




R&D